#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->agent_alias('Linux Mozilla');

$mech->get("https://secure.del.icio.us/login");
$mech->submit_form( 
	fields => { user_name => 'username',
	    	    password => 'password',
	  } 
      );
print $mech->content(format=>'text');