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 {}