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

##</code><code>##

require foo;
foo::subroutine();

#will print

Hello