:
eval 'exec perl -S `echo $0 | sed "s/.*\///" ` ${1+"$@"}' 
    if 0;
srand( time() ^ ($$ + ($$ << 15)) ^ unpack "%32L*", `ps -e | gzip -c`) ;

$n=9;

$c0=48;
$c9=$c0 + 9;

$string ="";
for($i=0; $i<$n ; $i++){
    $c = &ranchar();
    $string .= "$c";
}

printf("  private static final int COOKIE=1$string;\n");

sub ranchar {
    local $c;
    $j=int(rand($c9-$c0+1))+$c0;
    $c = pack("c",$j);
    $c;
}

# for($i=33; $i<=126; $i++){ printf("%d=%s ",$i,pack("c",$i));} printf("\n");