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

[victorzk]

小弟对perl一无所知，由于工作需要，要对perl这段代码进行一下修改。
在sub succeed_input的部分加一个叫ac_kd的Cookie设定处理怎样做呢？？？
代码如下：】
sub succeed_input {
#warn 'succeed_input';
my ($self, $auth_data) = @_;

#warn 'succeed_input session_id='.$self->session->session_id;

my $customer = $auth_data->{'customer'};
my $cookies = $auth_data->{'cookies'};

#warn 'lbsid = '.$cookies->{'lbsid'}->value;

# 信用口座の有無の情報を追加
#warn $customer->customer->sinyo_ok_date;
my $shinyo = 'N';
if( $customer->customer->sinyo_ok_date && $customer->customer->sinyo_ok_date ne '' && $customer->customer->sinyo_ok_date ne '000
0-00-00 00:00:00' ){
$shinyo = 'Y';
}
#warn $shinyo;
my $key = 'cst_kbn';
my $cookie = Apache::Cookie->new(
$self->r,
-name => $key,
#-value => ($kind eq '31'|| $kind eq '35') ? 'Y':'N',
-value => $shinyo,
-path => '/',
-domain => config->AUTH_COOKIE_DOMAIN,
);
$cookies->{$key} = $cookie;

#XXX クッキーをブラウザに出力
foreach(keys %$cookies){
my $cookie = $cookies->{$_};
$cookie->bake;
}

#XXX 古いクッキーを消す
system("/usr/local/bin/bash /home/edge-dev/kabu/bin/rm_cookie_files.sh");

#XXX ユーザー情報をセッションに保存
$self->session->param('customer' => $customer);


#XXX redirect
my $red = $self->r->param('ref') || config->LINK_HTTPS.'/mypage/';
if( my $befor = $self->r->param('befor') ){
$befor =~ s/([^\w ])/'%' . unpack('H2', $1)/eg;
$befor =~ tr/ /+/;
$red .= '&befor=' . $befor;
}
#warn "++++++++++++++++ $red \n";
$self->redirect($red);
}

[JoyerHuang_悦]

Apache::Cookie->new
之后，你想做什么？具体说清楚。。。

还有就是，这段代码像是开源的，似乎是好几个人一起写出来。。

[victorzk]

Apache::Cookie->new
之后，你想做什么？具体说清楚。。。


Apache::Cookie->new再加一个叫ac_kd的Cookie值,也就是有往客户端在追加一个cookie，
name：ac_kd value：从页面中取到的id

[jockywin]

怎么有日语， 抵制

[JoyerHuang_悦]

从<<my $cookie = Apache::Cookie->new(
这一句开始的十行，就是一个Cookie的建立呀。。