求助perl高手帮助改一下perl代码！！？？

my $r;
Apache->request($r);
my $cookie = Apache::Cookie->new(
                              -name    => 'ac_kd',
                              -value   => $r->args->{'ac_kd'},
                              -path    => '/',
                              -domain  => config->AUTH_COOKIE_DOMAIN,
                              );
$cookies->{$key} = $cookie;