Perl Signals

7cardcha has asked for the wisdom of the Perl Monks concerning the following question:

This code is supposed to print You can't kill me! whenever it is sent the INT signal


$SIG{"INT"} = "interrupt";
while(1)
{


}

sub interrupt
{
    print "You can't kill me!";
    $SIG{"INT"} = "interrupt";
}
[download]

Instead it just does nothing. Please help.