255[am]king ~/a$ cat a print "Hello\n"; a(0); print "Middle\n"; a(1); print "Goodbye\n"; sub a { $parameter = shift; if( $parameter ) { die # <--- line 10 }; }