open(my $fh, '<', $filename) or die "Cannot open file '$filename' for reading: $!";