cgi upload

#!/usr/bin/perl
use CGI::Pretty qw/:standard/;
print header();
print start_html();
if(param('file'))
{
    my $fh=upload('file');
    my $filename=param('name');
    if(-f "$filename" || !$fh)
    {
        print "error";
    }
    else
    {
        open(OFILE,">$filename");
        while(<$fh>)
        {
            print OFILE $_;
        }
        close(OFILE);
        print "uploaded $filename";
    }
}
print br(),h3('upload form'),start_multipart_form({-name=>'upload',-method=>'POST'}),textfield({-name=>'name'}),filefield({-name=>'file',-size=>50}),br(),submit({-name=>'submit',-value=>'Submit'}),end_form(),end_html();