PERLDB_OPTS="NonStop AutoTrace LineInfo=foo.trace" perl -d foo.pl

##</code><code>##

print "foo\n";
print "bar\n";

##</code><code>##

main::(foo.pl:1):       print "foo\n";
main::(foo.pl:2):       print "bar\n";
Config::DESTROY(/usr/libdata/perl5/i386-openbsd/5.8.2/Config.pm:1265):
1265:   sub DESTROY { }
IO::Handle::DESTROY(/usr/libdata/perl5/i386-openbsd/5.8.2/IO/Handle.pm:326):
326:    sub DESTROY {}