use PerlIO::gzip;
{
    local $_;
    open my $ofh, '>:raw',  $outpath
        or die $!;
    open my $ifh, '<:gzip', $inpath
        or die $!;
    print $ofh $_ while <$ifh>;
    close $ifh or die $!;
    close $ofh or die $!;
}