#!/usr/bin/perl require "Info.pm"; $file="02-WhatElseIsThereF.mp3"; if (!-f $file) { die "No such file $file\n"; } print "Reading MP3 information:\n"; $info = MP3::Info::get_mp3info($file); for $i (sort keys %$info) { print "$i : $${info{$i}}\n"; } print "Reading MP3 tags:\n"; $tag = MP3::Info::get_mp3tag($file, 2, 1); for $i (sort keys %$tag) { print "$i : $${tag{$i}}\n\n"; }