Aフォルダの中にある10〜30.txtファイルがあります。
Aフォルダの中身はこれが全てでこれを全部開きたいのです。

open(FILE, '10.txt') or die "$!";
while (my $line =<FILE>) {
print $line;
}
close(FILE);

これだと一つのファイルの中身は見れますが、フォルダの中全てを開きたい
僕にとってこれは違う気がします。
なんとか、方法はないでしょうか？宜しければ教えてください。