use Image::ExifTool;

sub pageCount {
    my $FILE = shift;
    my $EXIFTOOL = new Image::ExifTool;
    my $INFO = $EXIFTOOL -> ImageInfo( $FILE );
    my $TAG;
    my $DONE = 0;
    my $PAGECOUNT = "1";

    while ( $DONE == 0 ) {
        $TAG = "ImageWidth ($PAGECOUNT)";
        my $VAL = $EXIFTOOL -> GetValue( $TAG );
        if ( !$VAL ) {
            $DONE = 1;
        }
        else {
            $PAGECOUNT++;
        }
    }
    return( $PAGECOUNT );
}