Help for this page

Select Code to Download

Select or download this

my $dirname = 'foo';
my @non_symlinks =
   grep { not -l }
   <$dirname/*>;