#!/afs/athena/contrib/perl/p

$SIG{'INT'} = 'sighandler';
$SIG{'HUP'} = 'sighandler';
$SIG{'QUIT'} = 'sighandler';

do "./xbase.perl";


print (&xlib'x_open_display('binkley:0'));