#!/usr/bin/perl

use strict;
use WWW::Mechanize;


my $targeturl="http://www.yourdomain.com/login.asp";

my $mech = WWW::Mechanize->new();
$mech->agent_alias( 'Windows IE 6' );
$mech->get($targeturl);
$mech->success or die $mech->response->status_line;

$mech->form_number(1); # if the login form was the first form on the page
$mech->set_fields(
	username => "MyUserID", 
	password => "Fak3Pa55w0rd"
	);
$mech->submit(); 
print $mech->content(); # print content