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