Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
$SIG{INT} = \&my_sig_int_handler;
print "process $$\n";
while(1){}

Select or download this

#!/usr/bin/perl -w
$process = shift;
kill 'INT', $process;