if(-e $rule_file) {
  if(open(my $rule_fh,'<',$rule_file)) {
    ....
  } else {
    die "Can not read file $rule_file : $!";
  }
}