#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper;

my $url = 'http://www.telstra.com/index.jsp';

my $www_obj = WWW::Mechanize->new();
$www_obj->get($url);

my $formsref = $www_obj->forms();

$www_obj->submit_form(form_number => 2,fields => {user => 'user', password => 'password'});

print Dumper($_),"\n" for(@$formsref);