C:\test>p1
[0] Perl> $SIG{INT} = sub{ print "Got ^C" };;
[0] Perl> Got ^C
Got ^C
;;
[0] Perl>