I tried it and sent the signal from another script, but it still doesn't work, no output file is being created, the signal wasn't captured. How did you make yours work? This is my original script:

#!/usr/bin/perl -w

sub my_sig_int_handler {
    open (OUT,">info.txt");
    print OUT "Woo-Hoo!\n";
    close(OUT);
}

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

The calling script contains the following:

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

when I launch the second script, the orginal one quits but does not capture the interrupt in order to create the output file. Show me what you did.