use warnings; use strict; use Carp; END { print "Good bye\n"; } print "Hello\n"; croak "bad thing"; print "There\n"; 1;