Select Code to Download

#!/usr/bin/perl -w
use strict;
...
open $fh, '<','exists.txt' or die "Not opened: $!\n";
close $fh;
print <$fh>;

readline() on closed filehandle $fh at test.pl line 4.
readline() on closed filehandle $fh at test.pl line 9.