#!/usr/bin/perl
use strict;

# only these fields need to be changed
@ARGV = qw(/music/mp3/);   # where MP3 files are located
my $outfile = "$ENV{HOME}/mp3/NoTag";   # where to write the output

# nothing below here needs to be changed
open (MP3, "> $outfile") || die "can't open MP3: $!";
use File::Find;
use MPEG::MP3Info;

&File::Find::find(\&check, @ARGV);
exit;

sub check {
        if ($File::Find::name !~ /\.mp3$/) {
                return;
        }

        my $tag = get_mp3tag($File::Find::name);
        if (!($tag)) { # if no id tag, print
                print MP3 "$File::Find::name\n";
        }
}