# code 2
use CGI qw(:standard);
use File::Basename;

my $file = $q->param('upfile') || '';

my $img_str = basename($file);

open(OUT,">C:/tmp/$img_str");

binmode $file;
binmode OUT;

my $buffer = '';

while (read($file, $buffer, 1024)) {
   print OUT $buffer;
}
close(OUT);