...
   if ( defined $args->{err} and $args->{err} ) {
      print "There is a problem : $args->{err}\n";
   }
...