Select Code to Download

print "Load from local file:: <input type=file name=fileupload>";

if ($cgi->param("fileupload")) {
    my $fh=$cgi->param("fileupload");
...
    $buff.=$_ while sysread($fh,$_,4096);
    $cgi->param("body",$buff);
}