#!/usr/bin/perl
use CGI;
$co = new CGI;

if (!$co->param()) {
  print $co->header,
        $co->start_html('upload a file'),
        "<table border=1><tr><td>",
        $co->center('upload a file'),
        $co->start_multipart_form,
        $co->filefield(-name=>'file1', -size=>30),
        $co->br,
        $co->submit(-value=>'Upload'),
        $co->end_form,
        "</td></tr></table>";
} else {
  $file = $co->param('file1');
  print $co->header,
        $co->start_html('file uploaded'),
        "Uploading $file ...<br>";
  @filename = split(/\\/, $file);
  open (FILE, ">safe/$filename[$#filename]"),
  print "... $filename[$#filename] uploaded.";
  print FILE <$file>;
  close FILE;
}
print $co->end_html;