#!/usr/bin/perl
use strict;
use Data::Dump;
use Image::ExifTool;

#CodecPrivate, length 51 (h.264 profile: High 10 @L4.1)

my @files = <*>;
foreach my $file (@files) {
    next unless ($file =~ m/\.mkv$/);
    print $file . " is being parsed\n";

    my $exifTool = new Image::ExifTool;
    $exifTool->ExtractInfo($file, 'Verbose');
    my $info = $exifTool->GetInfo('CodecPrivate?');

    print "Tags:"; 
    print pp $info;
    print "\n";
}