<%23>: perl -W sud.pl
Reference found where even-sized list expected at /apps/Perl/lib/site_perl/5.8.8/Sudo.pm line 85.

##</code><code>##

    83          if ($_sudo_stat_[5] != 0 )
    84              {
    85                %ret = {
    86                        'error' => (sprintf 'Error: the sudo binary "%s" is not set to group id = 0',$sudo)
    87                       };
    88                return \%ret;
    89              }