opendir( DIR, '.' )||die "Can't open $dir";
my(@filenames)=readdir ( DIR );
closedir ( DIR );
@filenames=sort {$a cmp $b} @filenames;