open FH, "<$mp3" or die "Could not open file $mp3\n";
             binmode FH;
             seek (FH, -128, 2);
             read (FH, $tag, 128);
             next if $tag !~ /^TAG/;