Select Code to Download

sub exec {
...
...
      if ($count > 0);
...
}

sub log_action {
my $i = shift;
...
    print FH "$format $error";
...
}