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