open (UPLOADFILE, ">$upload_dir/$filename") || die ("Can't open $upload_dir/$filename: ".$!);

##</code><code>##

 print $query->header, $query->start_html, 
       $query->h1("File got saved in $upload_dir/$filename"),
       $query->end_html;