Select Code to Download

#!/usr/local/bin/perl -Tw
       use CGI ':standard';
...
       print "<P>Thanks!</P>\n";       
       print end_html;
1;

perl -T tainttest.pl
(offline mode: enter name=value pairs on standard input)
^Z