Select Code to Download

opendir(D, "test");
while ( $file = readdir(D) ) 
{
...
    print ($file ? "true" : "false");
    print "\n";
}

# this is php, not perl!
$d = opendir('test);
while (false !== ($file = readdir($d))) { 
...
    print ($file ? "true" : "false");
    print "\n";
}