$upload_dir = 'C:/hut/uploads';

   my $query->new CGI;

   my $filename = $query->param("photo"); # photo is the file name in the html form
   my @fh = $query->upload("photo");
   foreach $fhan(@fh){
   open (UPLOADFILE, ">$upload_dir/$filename") or error($!);
   binmode UPLOADFILE;
   while ( <$fhan> ) {
      print UPLOADFILE;
  }

}

   close UPLOADFILE;

foreach $fhan(@fh)

{
print "<img src=\"uploads/$fhan\" alt=\"Pic\">\n";		 

}