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

##</code><code>##

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