I know someone is going to laugh when they read this question, but I am trying to create a web site that makes life really easy on this one group on campus to upload Word Documents up to a campus web server... I have never done a form upload before and it's really starting to piss me off... the upload part of the code is:

$file_name = param('file_name');

&save_file;
&Print_Error if($file_name eq "");
&Return_html;

sub save_file {
        open (MYFILE, ">/user/s4/kendo/public_html/write/$file_name" )
+ || die $!;
        while(<$file_name>){ print MYFILE $_; }
        close(MYFILE);

}

sub Return_html {
        print header();
        print start_html('Upload Complete');
        print "<h1>Your upload is complete!</h1>";
        print "$file_name";
        print end_html;
}
sub Print_Error {
        print header(), start_html('Upload Error!'); 
        print "<p>Field \'File Name\' must be filled in for 
                this script to work properly.</p>\n";
        print end_html;
        exit 0;
}
[download]

Any kind of help would be greatly appreciated...