指定フォルダ以下のフォルダ/ファイルを列挙する lesson001.pl $dir = $ARGV[0]; opendir HANDLE, $dir; @fileList = readdir HANDLE;foreach $file (@fileList) { print "$file\n"; }closedir HANDLE, $dir;実行結果 C:\>perl c:\study\perl\chapter005\les…