#!/usr/bin/perl

use strict;
use File::Find;

my @dirs = @ARGV or die "Please supply a valid directory to search";

find(\&wanted, @dirs);
sub wanted{
  if(-f && m/\.(mp3|rm)$/){ print "$File::Find::name\n"; }
}