#!/usr/bin/perl -w

use strict;

my $path;
my $file;

$path=$ARGV[0] or die "$0 dir\n";

open (FILES, "find \"$path\" -name \\\*.mp3 |") or die "find $path failed: $!";

while ($file = <FILES>)
{
    my $out;
    my $newfile;

    chomp ($file);
    $newfile=$file;

    $newfile =~ s/"/\\"/g;
    $newfile =~ s/\$/\\\$/g;
    $newfile =~ s/`/\\`/g;

    open (OUTPUT, "id3v2 -l \"$newfile\" |");
    $out=join("", <OUTPUT>);
    close (OUTPUT); 

    if ($out !~ /id3v2 tag info for/)
    {
	print "$file\n";
    }   
}