use MP4::Info 'get_mp4tag';
my $tag = get_mp4tag($ARGV[0]);
print $tag && $tag->{HDVD} && $tag->{HDVD}==2
	? "Match! $ARGV[0]\n" : "No Match!\n";