#!/usr/bin/perl 
use CGI qw(:standard);

my $cgi         =       new CGI;
my $upload_dir  =       '.';

my $file        =       $cgi->param('file');
my $filename    =       $file;
$filename       =~      s/^.*(\\|\/)//g;

print $cgi->header(-type=>'text/html');

open(OUT, ">$upload_dir/$filename") || die print "Fail to upload: $!"; 
while(<$file>) {
        print OUT;
}
close(OUT);

print "$filename has uploaded\n";

__END__