Zeug

  1 #!/usr/bin/perl
  2 #
  3 #
  4 $foo = &my_func;
  5
  6 sub my_func {
  7 print "здесь\n";
  8 require "file.pl";
  9 #print "всё ещё здесь\n";
 10 }
 11
 12 print $foo;

в file.pl стоит только:
 #!/usr/bin/perl
 return "OK";