#!/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;

##</code><code>##

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