Select Code to Download

package foo;
  BEGIN{
        $text = "Hello\n";
        }
sub subroutine {print $text} return 1;

require foo;
foo::subroutine();
...
#will print

Hello