for my $try ( 1 .. RETRIES ) {
  if(open(my $rule_fh,'<',$rule_file)) {
    last;
  }
  if( $try == RETRIES ) {
    die "Can not read file $rule_file : $! / $^E";
  }
}