Select Code to Download

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

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