?
use LWP;
use HTTP::Cookies;
use strict;

my $url='www.perl.com/login';
my $ua=LWP::UserAgent->new;
my $cookie_jar=HTTP::Cookies->new;
$ua->cookie_jar($cookie_jar);

my $req=$ua->post($url,
['username' => 'ZET36',
'password' => 'justanotherperlhacker',
]);
$cookie_jar->extract_cookies($req);