set_cookie?

[über]

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use strict;
my $ua = LWP::UserAgent->new();
my $cookie_jar = HTTP::Cookies->new();
$ua->cookie_jar( $cookie_jar );
$cookie_jar->set_cookie(
  1,                     # version
  'username',            # key
  'jack',           # value
  '/',                   # path
  'http://www.example.com', # domain
  '',                    # port
  0,                     # path_spec
  0,                     # secure
  999999,                # maxage
  0,                     # discard
  {}                     # rest
  );
my $res = $ua->get("http://www.example.com/");
if ($res->decoded_content=~/Your name is = (\w+)/i){
print "name = $1";
}

This script is supposed to log me on in some site, but when i compile it, it prints "name = null". Null would be default value for "Your name is = " in that site. Whats wrong in this script?