Revised I set up test.txt and ran the first version of this code and got no output. Added use warnings and posted the warning messages here with no comment. Sorry if that came across as unfriendly.
Unquoted string "out" may clash with future reserved word at 693053.pl
+ line 10.
Name "main::out" used only once: possible typo at 693053.pl line 10.
print() on unopened filehandle out at 693053.pl line 10, <IN> line 1.
print() on unopened filehandle out at 693053.pl line 10, <IN> line 4.
print() on unopened filehandle out at 693053.pl line 10, <IN> line 6.
print() on unopened filehandle out at 693053.pl line 10, <IN> line 9.
