open my $FH, '<', $file or die "Can't open $file: $!\n";