Re^4: selcting all files in a given directory except......

this is the code which i hav been excecuting...... still unable to find out........

#!/usr/bin/perl
use strict;
use warnings;
chomp(my $dir = <STDIN>);
my @files;
if (-d $dir){
opendir (my $DIR, $dir) || die "Unable to open $dir: $!";
@files = grep { m/^(?!\.{1,2}\z)/ } readdir($DIR);
closedir($DIR);
}
foreach my $file (@files) {
print "$file\n";
}
[download]

Comment on Re^4: selcting all files in a given directory except...... Download Code