#!/usr/bin/perl 

use Image::Size;

opendir(MAIN,".");

for $dir (sort {$a cmp $b} grep { -d && !/^\.\.?/} readdir(MAIN)) {
print "$dir\n"}

__DATA__
Aud
HK
THMB
ah
audowls
auk
auk2
ausmuseum
beadle
belem
bewick
birch
birdquest
birdsofchina
birdsofsa
chile
cornell
cotinga
debevere
disley
etc
faust
finnegan
fuertes
gould
greek
gu_owls
hough
komolphalin
lane
lewington
mackay
mackay2
masi
misc
newguinea
oclery
ora
otte
parentoni_brettas
potoo
pratt
romig
schmitt
sibley
stamps
sues_nathist
sunbird
surfbirds
thumbnails2k.html
travnat
verderber
webb
wilczur
wilson
wolf
zick