Select Code to Download

use warnings;
use FileHandle;
...

print <$fh>;
print <$fh2>;

Use of uninitialized value in <HANDLE> at t line 16.
readline() on unopened filehandle at t line 16.
readline() on closed filehandle GEN1 at t line 17.