如何使用perl遍历一个目录下的所有文件

#!/usr/bin/perl -w
use warnings;

my $DIR_PATH="/home/wangfy/tmp";

opendir DIR, ${DIR_PATH} or die "Can not open /"$DIR_PATH/"/n";
@filelist = readdir DIR;

foreach $file (@filelist) {
   print $DIR_PATH."/".$file."/n";
}