Select Code to Download

#!/usr/bin/perl
use CGI;
...
        -size => 50,
        -maxlength=> 80);
print $query->endform;

#!/usr/bin/perl
use CGI;
...
while(<$file>) {
    print $_; # the contents of the upload file
}