{  package Pkg;
   sub new     { my ($class, $text) = @_;
                 return bless(\$text, $class); }
   sub DESTROY { my ($self) = @_;
                 print "DESTROY $$self\n"; }
}

my  $lex = Pkg->new('file scope lex var');
our $pkg = Pkg->new('pkg var');
END { print "END\n" }
print("At end of script\n");

##</code><code>##

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