open (UPLOADFILE, ">$dirpath/$filename")
            or die "bad open $dirpath/$filename\n $!";