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

my $upload_dir = "upload/";

my $query = new CGI;
my $filename = $query->param("file");

my $upload_filehandle = $query->upload("file");

my $newname = "edddd";
my $fileto = rename($filename, $newname);

open ( UPLOADFILE, ">$upload_dir/$fileto" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
print UPLOADFILE;
}

close UPLOADFILE;