open(my $fh, "<", $filename) or die "Could not open file '$filename': $!";