#!/usr/bin/perl

use warnings;
use strict;
use LWP::Simple;
use WWW::Mechanize;

my $derp = WWW::Mechanize->new();
my $url = "myurl";

$derp -> cookie_jar(HTTP::Cookies->new());
$derp -> get($url);
$derp -> content();
$derp -> follow_link(text=>"loginLink");

print $derp -> title(), "\n";

my @forms = $derp -> forms();

foreach (@forms) {
	my @input_fields = $_->param;
	print "form params are:\n";
	
	foreach (@input_fields) {
			print "$_\n";
		}
}


print "filling in form..\n";

$derp -> field("j_username", "user");
$derp -> field("j_password", "password");

$derp -> submit();

if($derp -> success()) {
	print "success\n";
} else {
	print "something went wrong\n";
}


print $derp -> title(), "\n";