use PerlIO::gzip;
open local(*STDOUT), '>:gzip', $filename or die $!;