#!/usr/bin/perl -w
use strict;
use HTML::Entities;

local *INFILE;
local *OUTFILE;

my $uploadedfilename = ""; # fill this in
my $fullfilename = "D:/inetpub/general/nt/cv";

# This is the name we echo back to the user :
my $htmlfilename = encode_entities($uploadedfilename);

die "Upload temp file $htmlfilename not found !\n" unless -x $uploadedfilename;

open INFILE, "< $uploadedfilename" or die "Opening the temp file $htmlfilename : $!\n";
binmode INFILE;
open OUTFILE, "> $fullfilename" or die "Can't create $fullfilename : $!\n";
binmode OUTFILE;

my ($bytesread, $buffer);
while ($bytesread=read(INFILE,$buffer,1024)) {
  print OUTFILE $buffer;
}

close OUTFILE;
close INFILE;


##</code><code>##

  $fh = $query->upload('FILE1');
  binmode $fh;
  while ($bytesread=read($fh, $buffer, 1024)) {
    print OUTFILE $buffer;
  }