$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;
}