opendir (DIR, $directory);
@files = readdir DIR;
closedir DIR;