Help for this page
my ($content, $IN); unless (open ($IN, "<", $file)) { ... $content = <$IN>; close ($IN); } # else
unless (open ($IN, "<", "file1.txt")) { die "Error in reading 'file1.txt': $!\n"; } # unless