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());