Help for this page

Select Code to Download

Select or download this

open(TMP, ">$files_path/$tm-$i.$type") || error("Cannot upload file $t
+m-$i$type: $!");
binmode(TMP)
print TMP "$fl";
close TMP