perl 实现目录下文件导出到文本

opendir DIR, ".\\port_code_txt" or die $!;
my @imglist;
open FILE_HANDLE, ">dir_filename.txt";
while (my $file = readdir DIR)
{      
    print FILE_HANDLE $file;
    print FILE_HANDLE "\n";
}
closedir DIR;
close FILE_HANDLE;