print $cgi->header;
    print $cgi->start_html(-title=>'Upload New File');
    print <<EOP;
    <p align=center><h2>Use the form below to upload a new file</h2></p>
    <hr>
    <form enctype="multipart/form-data" method=post>
    <p align=center><input type=file name="file" size=50></p>
    <p align=center><input type=submit value=Upload></p>
EOP