Select Code to Download

#!/usr/bin/perl

...
say "Executing ".__PACKAGE__;
INIT { say __PACKAGE__."::INIT"; };
END { say __PACKAGE__."::END"; };

package Xyzzy;

...
INIT { say __PACKAGE__."::INIT"; $external->(); };
END { say __PACKAGE__."::END"; };
     1;

Executing Xyzzy
Xyzzy::INIT
...
Executing main
main::END
Xyzzy::END