open(my $fh, '<', $file) or die("Error open $file. Message: $!\n");