新手请教，如何用PERL获取某个目录的所文件的文件名

因我要把所有文件的文件记录下来。希望大家帮帮忙

opendir(DIR,'d:/www');

while(my $file = readdir(DIR))

{

       print $file,"\n";

}

closedir(DIR);

能不能输出一个文件就换行一次
或者在每个文件之间加多几个空格？？