#!/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){}

##</code><code>##

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