use File::Find;

find(\&und_was_nu,'~/','/usr/bin');

sub und_was_nu {
    print "Datei: $File::Find::name\n"
    print "\tVerzeichnis: $File::Find::dir\n"
    print "\tDateiname: $_\n";

    return if -d $File::Find::name;#skip directories
    return unless $_ =~ m/\.mp3$/i;#only mp3 Files
    #Some Stuff
    
}