if ($file ne '.' || $file ne '..'){print "$file\n";}