>>229
opendir DH, $dir or die "$dir:$!";
print join ' ', grep !/^\.{1,2}$/, readdir DH or die "$!";
exit;

かな？