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

Contents of foo.pl:

print "foo\n";
print "bar\n";
[download]

Content of foo.trace:

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 {}
[download]

See perldebug for more options.