$SIG{INT} = sub { print "I'll die\n"; exit 1; };