open (my $fh, '<', $file) || die "Cannot open $file: $!";