&log_action(\%args); #### $args{err} = $s->error(); #### sub log_action { my $args = shift; #### if ($args->{err}) { # do something... #### if (defined $args->{err}) {