my $MP3dir = $ARGV[0];
my $searchfor = $ARGV[1];
find(\&wanted, $MP3dir);

sub wanted
{
  /\.\Q$searchfor\E$/ or return