local $SIG{ BREAK } = sub { print "Try harder sucker!" };;