#!/usr/bin/perl -w
# pudge@pobox.com 2001.03.13

# dump out info about MP3 files, run with `mp3data.plx . | less`
# or something, or redirect output to a file

use Data::Dumper;
use File::Find;
use MP3::Info;

find(sub {
	return unless -f $_;
	my $i = get_mp3info($_) or return;
	my $t = get_mp3tag($_);
	print "$File::Find::name\n", Dumper($i);
	print Dumper($t) if keys %$t;
}, @ARGV);

__END__