Select Code to Download

#!/usr/bin/perl 
print "Content-type:text/html\n\n";
...
EndOfHTML
print "</BODY> </HTML>\n";

#!/usr/bin/perl

...
  I will get the result is
$501-1234-01

#!/usr/bin/perl -w

...
}