use warnings;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Cookies;
use FileHandle();

$fh = new FileHandle("content.htm","w");

$loginUrl="https://secure.del.icio.us/login";
$login="test";
$password="123";

my $ua = LWP::UserAgent->new();
my $cookie_jar = HTTP::Cookies->new;
$ua->cookie_jar($cookie_jar);
push @{ $ua->requests_redirectable }, 'POST';

my $response = $ua->post($loginUrl,['user_name'=>$login,'password'=>$password,'login'=>"log in"],'Referer' =>'https://secure.del.icio.us/login');
$cookie_jar->extract_cookies($response); 

print ($fh $response->content());

         use HTTP::Cookies;
         $cookie_jar = HTTP::Cookies->new(
           file => "$ENV{'HOME'}/lwp_cookies.dat',
           autosave => 1,
         );

         use LWP;
         my $browser = LWP::UserAgent->new;
         $browser->cookie_jar($cookie_jar);

       Or for an empty and temporary cookie jar:

         use LWP;
         my $browser = LWP::UserAgent->new;
         $browser->cookie_jar( {} );

# Login Request zusammensetzen
$request = HTTP::Request->new(POST => 'https://tst.com/Login.jsp?a=setLanguage&language=DE');
$request->push_header('Content-Type' => 'application/x-www-form-urlencoded');
$request->content("callTest=set&hotelKey=123&passwd=GEHEIM&weeksToShow=other&Login.y=7");

# Session id auslesen
$response->header('Set-Cookie') =~ /JSESSIONID=(.*?);/;
$sid = $1;

# Request Header
$request = HTTP::Request->new(POST => 'https://tst.com/daten.jsp');
$request->push_header('Cookie' => 'JSESSIONID='.$sid);
....