use CGI;
my $q = new CGI;

# read cookie
my %cookies = $q->cookie(-name => "test_foo");
my $bar = $cookies{bar};
my $foo  = $cookies{foo};

# write cookie
my $cookie = $q->cookie(-name    => "test_foo",
                        -value   => {
                                     foo  => "foo",
                                     bar  => "bar",
                                    },
                        -expires => '+10m');

print $q->header(-cookie=>$cookie, -expires => "now");