Select Code to Download

{  package Pkg;
   sub new     { my ($class, $text) = @_;
...
our $pkg = Pkg->new('pkg var');
END { print "END\n" }
print("At end of script\n");

At end of script
DESTROY file scope lex var
END
DESTROY pkg var