1 #!/usr/bin/perl
 2 my $a=2;
 3 print "Content-type: text/plain\n\n";
 4 print "$a\n";

##</code><code>##

   
   package ModPerl::ROOT::ModPerl::PerlRun::home_jjmoka_TEST_code_test2_2epl;sub handler {local $0 = '/home/jjmoka/TEST/code/test2.pl';
   #line 1 /home/jjmoka/TEST/code/test2.pl
   #!/usr/bin/perl
   my $a=2;
   print "Content-type: text/plain\n\n";
   print "$a\n";