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