Select Code to Download

#!/usr/bin/perl -wT
use CGI;
...
     <td colspan=2 align=\"center\"><input type=\"submit\" value=\"Sub
+mit\"></td>
    </tr></table></form>";
EndOfHTML

#!/usr/bin/perl -w
use CGI;
...
print $output;
print "The active user is: ", `whoami`;
print end_html;