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