Select Code to Download

   #!perl
   my $var = ...;
...
   sub1();
   sub2();
   exit 0;

   #!perl
   main();
...
      sub2(@var);
      exit 0;
    }