#!/usr/bin/perl
use strict;
sub CGDie ($);
sub upForm ();
use CGI;
my $cgi = new CGI;
print $cgi->header;
my $filename = $cgi->param('file') or upForm;
$filename =~ s/.*\\//;

my $filedata = $cgi->upload('file') or CGDie "Document contains no data.<br>\n".
                                             "Can't find document content.<br>".
					     "YOU ARE OUT OF MEMORY!<br>\n".
  					     "You may want to assign more".
					     "memory to IE. Narf!<br>\n";
open FO, ">./$filename" or CGDie "Can't store $filename: $!\n";
binmode FO;
my $linecount = 0;
while (<$filedata>) {
    print FO;
    $linecount++;
}
close FO;
unless ($linecount) {
    unlink "./$filename";
    CGDie "Document contains no data.<br>\n".
          "Can't find document content. YOU ARE OUT OF MEMORY! You may want to".
          " assign more memory to IE. Narf!\n";
}
print "File has been uploaded.<br>\n";
upForm;

sub upForm () {
    print <<"EOF";
<form action="upload.cgi" method="POST" enctype="Multipart/Form-Data">
    File: <input type="file" name="file"><input type="submit" value="upload">
</form>
<iframe src="./" width="640" height="480"></iframe>
EOF
    exit;
}

sub CGDie ($) {
    my $error = shift;
    print "<b>Error:</b> <font color=\"red\">$error</font><br>\n";
    upForm;
}