Select Code to Download

#!/usr/bin/perl -T

...
print $q->submit(-value=>"ANALYZE!");
print $q->end_multipart_form;
print $q->end_html;