sub main'myfoo {}
##</code><code>##

      if ( $file =~ /\.pl$/ ) {        
         package main;
         #printf("(package::main): require \"$file\"\n");
         eval "require \"$file\"";
         package PmLoader;
      }
      else {
         (my $module = $file) =~ s/\.pm$//;
         #printf("(module): require $module\n");
         eval "require $module";
         #printf("(module): $module->export_to_level(2);\n");
         eval "$module->export_to_level(2)";
      }