use Path::Class qw(dir);
my @files = map {$_->basename} dir($path)->children;