#!/usr/bin/perl

    use strict;
    use warnings;
    use Image::ExifTool 'ImageInfo';

    my @files = (

        'test.xls', 'test.xlsx',
        'test.doc', 'test.docx',
        'test.ppt', 'test.pptx',

    );


    for my $filename ( @files ) {

        my $info = ImageInfo( $filename );

        printf( "%-20s = %s\n", $filename, $info->{FileType} );

    }

    __END__
        Output:

        $ perl exif_check.pl
        test.xls             = XLS
        test.xlsx            = XLSX
        test.doc             = DOC
        test.docx            = DOCX
        test.ppt             = PPT
        test.pptx            = PPTX