Select Code to Download

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