while ($_ = readdir DIR) {
 print $_,"\n";
}