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

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