use strict;
use File::Find;

my $startDir = "c:/";

find( sub {
  # We only want files ending in ".mp3"
  if ($File::Find::name =~ /\.mp3$/) {
    print "Found " . $File::Find::name . "\n";
  }
}, $startDir );