Select Code to Download

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
...
require "upload.pl";

return 1;

#!/usr/bin/perl

use strict;
...
# Need this line so that the file may be 
# gotten with require();
return 1;