opendir(DIR,'/') || die "$!";
my @files=readdir(DIR)  || die "$!";
closedir(DIR) || die "$!";
print join "\n", @files;