opendir(DIR,"/somedir") || die $!;
@Files = readdir(DIR);
closedir(DIR);