Your question is ambigious. Do you mean you want a list of all files and dirs minus . and ..?

Or, all files, excluding all dirs (including . and ..)?

Choose from the following code:

#! perl -w
local ($\=" | ");
$dir = pop;
opendir (DIR, $dir ) or die "Open '$dir' failed: $!";
my @filesOnly= map { $dir.$_ } grep{ -f "$dir/$_" } readdir(DIR);
closedir (DIR) or die "Close '$dir' failed: $!";
print for (@filesOnly);
print "-----------------------------------------------\n";

opendir (DIR, $dir ) or die "Open '$dir' failed: $!";
my @filesAndDirs= map { $dir.$_ } grep{ $_ ne "." and $_ ne ".." } rea
+ddir(DIR);
closedir (DIR) or die "Close '$dir' failed: $!";

print for (@filesAndDirs)
[download]