sub wanted {
  return unless -f && /\.mp3$/;
  print $File::Find::name, "\n";
}