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