#! /usr/bin/perl
use strict;
use warnings;

# this is findmp3
# findmp3 DIR [DIR2] [DIR3]

use File::Find::Rule;

my @dirs = @ARGV;
if ( !@dirs ) {
  warn "No directories specified! Using '.' for search.\n";
  @dirs = ( '.' );
}

my @files = File::Find::Rule->file()
                            ->name('*.[mM][pP]3')
                            ->in( @dirs );

print "Found these files: \n", join "\n", @files;