How about something like this...

#!/usr/bin/perl -w
use strict;

my $thispath = 'c:\Documents and Settings\bch\My Documents\mp3s\\';
print "PATH: $thispath";

chdir ($thispath);
my @files = <*.*>;

map { print "FOUND: $_\n"; } @files;
[download]

Here is my output on my Win2K machine.

FOUND: Liquid Soul - 03 - Salt Peanuts-Chocolate Covered Nut.mp3
FOUND: Liquid Soul - 10 - No Cents.mp3
FOUND: Ronny Jordan  feat Mos Def - A Brighter Day (remix).mp3
[download]

Hope this helps..
zzSPECTREz