.
    .
    $co = new CGI;
    .
    .
    .
    $newunp = join('|',@batch);
    $ck_unp = $co->cookie(
       -name=>'unp',
       -value=>$newunp,
       -expires=>'+365d'
    );
    print $co->header(-cookie=>$ck_unp);
    .
    .