#!/usr/bin/perl

unshift(@INC, "/usr/local/bin");
use MP3::Info;

$tag = get_mp3tag("/mirror/mp3/The Presidents Of The United States Of America - The Presidents Of The United States Of America.02.mp3");

for (keys %$tag) {
    printf "%s => %s\n", $_, $tag->{$_};
}