Select Code to Download

my $file_query1 = 'D:\work for people\k****ij\oil1.shtml';

...
print "completed<br><br>";

}

----------------------------------------------------------------------
+---------------
open(FILE,">$upload_dir/$file_name") || &Error("Error opening file $fi
+le_name for writing, error $!", 1);
...
print FILE $buff;
}
close(FILE);