Jonathan Harris has just released a new version of MP4::Info adding support for Sony PSP title and encoder.
Movie title and the encoder used are now accessible under $tag->{NAM}
and $tag->{TOO}
use MP4::Info;
my $file = 'MAQ12331.MP4';
my $tag = get_mp4tag($file) or die "No TAG info";
printf "$file title:%s encoder: %s\n", $tag~~<span style="NAM;text-align:right;">, $tag</span>~~>{TOO};
see my related post