my $dir = 'pwd';
opendir(FILE, "$dir");
my @file = readdir(FILE);
closedir(FILE);