print "Pfad angeben wo die MP3's sind!!!\n";

while (<STDIN>) {
    chomp;
    $_ = <*.mp3>;
    find(\&wanted, $_);# findet alles was in dem angegebenen Verzeichnis ist
}