BEGIN {
   my $foo = "bar\n";

   sub print_foo {
      print $foo;
   }
}