source: mp3-find/trunk/bin/tagger

#!/usr/bin/perl -w
use strict;

use lib '/home/peter/projects/mp3-find/lib';
use MP3::Find qw(Filesystem);
use MP3::Find::Util qw(build_query);
use File::Spec::Functions qw(catfile);

use Term::ReadKey;

my ($DIRS, $QUERY) = build_query(@ARGV);
push @$DIRS, '.' unless @$DIRS;

for my $mp3 (find_mp3s(
    dir         => $DIRS,
    query       => $QUERY,
    ignore_case => 1, #$IGNORE_CASE,
    exact_match => 0, #$EXACT_MATCH,
    no_format => 1,
    db_file     => catfile($ENV{HOME}, 'mp3.db'),
)) {
    print "$$mp3{FILENAME}\n";
    my $i;
    for (qw(ARTIST TITLE ALBUM YEAR GENRE)) {
        printf "[%d] %-6s  %s\n", ++$i, $_, $$mp3{$_};
    }
    print "Change [1-5]? ";
    my $key = ReadKey(0);
}