##

#!/usr/bin/perl 
    
   use warnings;
   use CGI;
   use CGI::Carp qw/fatalsToBrowser/;

   my $query = new CGI;
   
   $upload_dir = 'C:/mystuff_htm/uploads';
   
   
   my @fh = $query->upload('photo');

   my $filename = $query->param("photo");


   print "Content-type: text/html\n\n";
foreach my $fhan(@fh){
   open (UPLOADFILE, ">$upload_dir/$filename") or error($!);
   binmode UPLOADFILE;
   while ( <$fhan> ) {
# i changed the $fhan and now working with @fh as filehandle
      print UPLOADFILE;
   }

}
   close UPLOADFILE;


foreach $fhan(@fh){
print "\n";		 

}