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