heres my 2 bits worth.... hope it helps...

opendir (BUFFER, $DirectoryName);
@Recieved = readdir(BUFFER);
closedir (BUFFER);
$Dummy = shift(@Recieved);
$Dummy = shift(@Recieved);
@Recieved = sort(@Recieved);
[download]

you mean there's any easier way?