my $userAgent = LWP::UserAgent->new(
    agent => 'Perlprogram/0.1',
    keep_alive => 1,
);
$userAgent->cookie_jar(HTTP::Cookies->new());