Re^2: session script

the following code poses some syntax error need some help

printf
  <<TEST, join ( "<BR>\n", map { $_ . " -&gt; " . $cookies{$_} } sort 
+keys %cookies );
  %s
TEST
[download]

Comment on Re^2: session script Download Code

Replies are listed 'Best First'.
Re^3: session script by wfsp (Abbot) on Jun 08, 2005 at 14:21 UTC
`#!/usr/bin/perl use strict; use warnings; my %cookie = ( one => 1, two => 2, ); for my $key (sort keys %cookie){ my $value = $cookie{$key}; print "$key $value </br>\n"; }` [download]	[reply] [d/l]