使用perl列出目录下的所有子目录和文件名

#!/usr/bin/perl -w
@files   =   < d :/*> ;
print   join ( " n------n " ,   @files );