Help for this page
open TEST_FILE, '<', $_ or die ...
print while <TEST_FILE>;
print <TEST_FILE>;
for my $filename (@test_files) {