sub my_sig_int_handler {
    print "Woo-Hoo!\n";
}

my $oldSigInt = $SIG{INT};
$SIG{INT} = \&my_sig_int_handler;