sub exec {
...
    ## retrieve an error message if unsuccessful
    my $error = $s->error
      if ($count > 0);
    ## log this action
    &log_action('error')
      if ($count > 0);
...
}

##</code><code>##

sub log_action {
my $i = shift;

  if ($i eq "error") {
    print "\n$error\n\n";
    print FH "$format $error";
...
}