Help for this page
my @files = glob("$dir/*.txt");
use File::Slurp; ... # or my @lines = read_file($filename);