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

    if ( $type eq "application/octet-stream" ) {
        do this..
    } else {
        do that..
    }