Untitled Document

#!/usr/bin/perl -w use strict; use diagnostics; use CGI qw/:standard/; use CGI::Cookie; # Create new cookies and send them my $cookie1 = new CGI::Cookie(-name=>'ID',-value=>123456); my $cookie2 = new CGI::Cookie(-name=>'preferences', -value=>{ font => 'Helvetica', size => 12 } ); print header(-cookie=>[$cookie1,$cookie2]); print start_html; # fetch existing cookies my %cookies = fetch CGI::Cookie; my $id = $cookies{'ID'}->value; print $id; print end_html; ##

##

print $id;Set-Cookie: ID=123456; path=/
Set-Cookie: preferences=font&Helvetica&size&12; path=/
Date: Sat, 19 Mar 2005 04:19:17 GMT
Content-Type: text/html; charset=ISO-8859-1



Untitled Document
Can't call method "value" on an undefined value at ./index.cgi line 17 (#1)
    (F) You used the syntax of a method call, but the slot filled by the
    object reference or package name contains an undefined value.  Something
    like this will reproduce the error:
    
        $BADREF = undef;
        process $BADREF 1,2,3;
        $BADREF->process(1,2,3);
    
Uncaught exception from user code:
        Can't call method "value" on an undefined value at ./index.cgi line 17.
 at ./index.cgi line 17