Select Code to Download

#!/usr/bin/perl
use warnings;
...
close (FILE);
}else{print "Cannot open file $file!"}
}

#!/usr/bin/perl
use CGI qw(:push);
...
print multipart_end();
}
print multipart_final();