The use of __LINE__ could be handy for a quick solution:

print "Hello\n";
 a(0, __LINE__);
 print "Middle\n";
 a(1, __LINE__);
 print "Goodbye\n";
 
 sub a {
    ($parameter, $line) = @_;
    if( $parameter ) { die "$line\n";};
 }
[download]