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