#!/usr/bin/perl -w

use strict;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use File::Basename;

my $fh = upload('userfile');

my $filename = param('userfile');
my ( undef, undef, $ext ) = fileparse($filename, '\.\w+$');

$filename = time() . $ext;


open OUTFILE, "> /tmp/$filename" or die "/tmp/$filename - $!\n";

binmode OUTFILE;
binmode $fh;

print header('text/html'),
      start_html(),
      p("filename : $filename (saved in /tmp)");
     

while (<$fh>)
{
   print OUTFILE $_;
}

print end_html();