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