open (my $fh, "<", $file) or die "Can't open $file for read: $!";