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);