#! 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 ".." } readdir(DIR);
closedir (DIR) or die "Close '$dir' failed: $!";

print for (@filesAndDirs)