#!/usr/bin/perl -CS
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;

my $filename = $cgi->param('file');
my $fh = $cgi->upload('file');
binmode $fh;

open(OUTPUT, ">/var/www/mypath/$filename") or die $!;
while(<$fh>) {
        print OUTPUT $_;
}

print $cgi->header();
print "$file has been successfully uploaded... thank you.\n";