$fname	 =$query->param('filename');

$upload_dir="/usr/web/doc";

$upfile=$fname;
$upfile=~ s/\\/\//g;     ##     Replace all \'s with /'s.


##     Extract the upload file's name.
@path=split(/\//,$upfile);
$upload_file= $upload_dir."/".$path[$#path];

open(MYFILE,">$upload_file") || die $!; 
binmode MYFILE; 
while($bytesread=read($fname,$data,1024))
{
   $size+=$bytesread;
   print MYFILE $data; 
} 
close(MYFILE);