【Perl 】初心者コーナーPart5

クッキーに２バイト文字をかきたいのですが、どうしたらいいでしょうか？
現在、下のようにCGIでクッキーをセットしてるのですが・・・
　　print &setCookie("POSTNAME", $FORM{'postname'});
　　sub setCookie {
　　　　local($tmp, $val);
　　　　$val = $_[1];
　　　　$val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
　　　　$tmp = "Set-Cookie: ";
　　　　$tmp .= "$_[0]=$val; ";
　　　　$tmp .= "expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
　　　　return($tmp);
　　}