$ perl -le'END { print "END" } sleep();'
^C
$