If you want just to see regular files, try :
Code:
#!/usr/bin/perl
my $dir = '/etc';
opendir MYDIR, $dir or
die "Can't open $dir: $!";
while( my $file = readdir(MYDIR) ) {
next if not -f "$dir/$file";
print "filename: $file\n";
print "full path: $dir/$file\n\n";
}
closedir MYDIR;
I use the -f test to check if the file is a regular file