Select Code to Download

#!/usr/bin/perl -CS
use CGI;
use CGI::Carp qw(fatalsToBrowser);
...

print $cgi->header();
print "$file has been successfully uploaded... thank you.\n";