opendir(D, "test");
while ( defined( $file = readdir(D) ) ) 
...