my $dirname = '.';
opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
	if ($file ne '.' || $file ne '..'){print "$file\n";}
}
closedir(DIR);
##</code><code>##

my $dirname = '.';
opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
	if ($file eq '.' || $file eq '..'){print "$file\n";}
}
closedir(DIR);
##</code><code>##

opendir (DIR, ".") or die "$!";
@dir = grep !/^\.\.?$/, readdir DIR; closedir DIR;