Select Code to Download

$filename =~ /\.(gif|jpg|jpeg)$/

-s $file

open(OUT, ">$upload_dir/$filename") || die print "Fail to upload: $!";
+ 
while(<$file>) {
        print OUT;
}
close(OUT);

{
   local *OUT; # Or better yet use lexical filehandle!
...
   close(OUT) or die "Error writing $filename: $!";

}