perl -MO=Deparse,-p                                 < 1 > 17:18:46
$mech->cookie_jar->set_cookie(-name=>'PersistentZipCode',
                   -value=>'15213',
                           -host=>'www.kbb.com',
                       -expires=>'Thu, 04 Dec 2008 18:23:16 GMT',
                   -path=>'/'
                -secure=>'false');
$mech->cookie_jar->set_cookie((-'name'), 'PersistentZipCode', (-'value'), '15213', (-'host'), 'www.kbb.com', (-'expires'), 'Thu, 04 Dec 2008 18:23:16 GMT', (-'path'), ('/' - 'secure'), 'false');