Select Code to Download

#!/usr/bin/perl -w
# formcgi.cgi
...
print $query->end_multipart_form;
print $query->end_html;

#!/usr/bin/perl -w
#test2.cgi
...
print $query->p("$name $filename");
print "<img src=\"/images/screenres/$name.jpg\">";
print $query->end_html;