Select Code to Download

#!/usr/local/bin/perl -w
# script name = upload_form.cgi
...
print $query->end_html;

exit;

#!/usr/bin/local/perl -w
# name image_writer.cgi
...
    print IMAGE $buffer;
}    
exit;