#!perl
   my $var = ...;
   my @var = ...;

   sub1();
   sub2();
   exit 0;

##</code><code>##

   #!perl
   main();

   sub main
   { 
      my $var = ...;
      my @var = ...;

      sub1($var);
      sub2(@var);
      exit 0;
    }