opendir C, "C:\\";
@C_DIR = (readdir(C));
closedir C;
open (Ctxt, ">full system memory\\C_DRIVE.txt");
foreach $C_FILE (@C_DIR) {
if (-f "C:/$C_FILE") {
print Ctxt "$C_FILE"; print Ctxt"\n";
}
}
close (Ctxt);