home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
PERL30X.ZIP
/
ALARM.PL
< prev
next >
Wrap
Text File
|
1991-01-14
|
276b
|
17 lines
sub handler {
local($sig) = @_;
print "Caught a SIG$sig -- shutting down\n";
exit(0);
}
$SIG{'INT'} = 'handler';
$SIG{'QUIT'} = 'handler';
$SIG{'ALRM'} = 'handler';
print "Starting execution ...\n";
alarm(10);
while ( <> ) {
}
print "Normal exit.\n";