$ perl -le'DESTROY { print "Destroyed" } my $x = bless {}; print "sleeping"; sleep 5;'
sleeping
Destroyed
$ perl -le'DESTROY { print "Destroyed" } my $x = bless {}; print "sleeping"; sleep 5;'
sleeping
^C
$