NAME MP4::Info - Fetch info from MPEG-4 files (.mp4, .m4a, .m4p, .3gp) SYNOPSIS #!perl -w use MP4::Info; my $file = 'Pearls_Before_Swine.m4a'; my $tag = get_mp4tag($file) or die "No TAG info"; printf "$file is a %s track\n", $tag->{GENRE}; my $info = get_mp4info($file); printf "$file length is %d:%d\n", $info->{MM}, $info->{SS}; my $mp4 = new MP4::Info $file; printf "$file length is %s, title is %