Greetings Anonymous Monk,

Besides the advice you have already recieved I think you should read How do I post a question effectively?.
It mentions not giving out your email address or other sensitive data.
At first glance you may want to add the binmode(TMP) line to your code:

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

Let us know how you get on.
Cheers

Martin