my @files = ();
my $dir = $rootPath . $input->param('path');
$dir .= '/' unless $dir =~ m#/$#;

opendir (DIR, $dir) or die $!;
@files = grep { -f } map { "$dir$_" } grep { !m#^\.# } readdir (DIR);
closedir (DIR);

##</code><code>##

@files = grep { -f } map { "$dir$_" } readdir (DIR);