LWP ->set_cookie

What's goin' on here?

#!/usr/bin/perl

use HTTP::Cookies;

use Data::Dumper;

my $cj = HTTP::Cookies->new;

$cj->set_cookie(
     1,                     # version
     'username',            # key
     'joe',                 # value
     '',                    # path
     'tparsons.co.uk',      # domain
     '80',                  # port
     '/blah',                     # path_spec
     0,                     # secure
     3600,                  # maxage
     0,                     # discard
);
print $cj->as_string, "\n";
{use Data::Dumper; local $Data::Dumper::Sortkeys=1;
     print Dumper( $cj)}


Why does the cookie not set?  And why does ->set_cookie() never return  
anything to show failure?  And why does ->set_cookie() never get  
exercised in the test suite?

Should ->set_cookie() go away?  How else would one set a cookie?

Thanks,
xoxo,
Andy

--
Andy Lester => [email protected] => www.theworkinggeek.com => AIM:petdance