Select Code to Download

    my $ft           = File::Type->new();
    my $type         = $ft->mime_type($filename);
...
    if ( $type eq "application/x-gzip" ) {
        ....
    }

$ gzip -h
Usage: gzip [OPTION]... [FILE]...
...
...
  -f  freshen existing files, create none    -t  test compressed archi
+ve data
..