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