#!/usr/bin/perl
use WWW::Mechanize;

$username = 'xxxxxxxx';
$password = 'xxxxxxxxxxx';

$mech = WWW::Mechanize->new( agent => "LoginScript/0.2 (perl.$]; $^O) by parasite" );
$mech->get('http://netlogin.kuleuven.be/') or die "Unable to get first
login page!";
$mech->submit() or die "Unable to submit, very strange!";
$mech->set_visible( $username, $password ) or die "Huh, didn't find user
and password field...";
$mech->submit or die "Unable to submit login info...";
print $mech->content;