use PerlIO::gzip;
open UPLOADFILE, '>:gzip', "$upload_dir/$uldate" or die $!;
# . . .