Select Code to Download

open(FH, $0);

...
__output__

*FH IO slot holds - IO::Handle=IO(0x8107e4c)

sub import {
  my $pkg = caller;
...
  *{"$pkg\::$_"} = *{__PACKAGE__."::$_"}{IO}
    for keys %{__PACKAGE__."::"};
}