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

##</code><code>##

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