Well, I'm pretty new too, so not sure if this is the best way, but I would use the glob function as was recommended earlier, something like this:

use File::Basename;
my $dir = dirname($path);
$dir .= '/*'; # Note: if the result of dirname already has the slash, 
+you only need to add the *
while (glob $dir) {
  # this will loop through files in that directory, putting each filen
+ame in $_
}
[download]

You can check out perldoc -f glob at the command line or perldoc.org!