Help for this page

Select Code to Download


  1. or download this
    my $var;
print $var = 3 + 4 . "\n"; # Just for illustration!
  2. or download this
    foreach (keys %{$ref_cookie}) {
# push(@{$self->{cookies}}, {$_=~s/^-//}, $ref_cookie->{$_}});
  push @{$self->{cookies}} , do{$_=~/^-(.*)/;$1}, $ref_cookie->{$_});
}