my $ft           = File::Type->new();
    my $type         = $ft->mime_type($filename);

    if ( $type eq "application/zip" ) {
        .....
    }    
    if ( $type eq "application/x-gzip" ) {
        ....
    }

##</code><code>##

$ gzip -h
Usage: gzip [OPTION]... [FILE]...
Compress or uncompress FILEs (by default, compress FILES in-place).
.....
  -t, --test        test compressed file integrity
....
$ unzip -h
...
Usage: unzip [-Z] [-opts[modifiers]] file[.zip] [list] [-x xlist] [-d exdir]
  Default action is to extract files in list, except those in xlist, to exdir;
  file[.zip] may be a wildcard.  -Z => ZipInfo mode ("unzip -Z" for usage).

...
  -f  freshen existing files, create none    -t  test compressed archive data
..