opendir (DIR, "/root") or die "unable to open /root $!\n";
@all = grep{-f}readdir DIR;