open my $fh, "<", $file or die "Can't open $file $!";