[PERL] gaia login using www::mechanize::shell to

[MoveItJosh]

this is my first post so give me some time, but here is the mechshell i plan on using for a mule tender

PHP Code:

#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use WWW::Mechanize::FormFiller;
use URI::URL;
use HTML::Parser;
use Data::Dumper;

my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();

  $agent->get('http://www.gaiaonline.com/gaia/login.php');
   $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  { local $^W; $agent->current_form->value('username', 'type_your_username'); };
  { local $^W; $agent->current_form->value('password', 'type_your_password'); };
  $agent->submit();
  
  { my $filename = q{dump.html};
    local *F;
    open F, "> $filename" or die "$filename: $!";
    binmode F;
    print F $agent->content,"\n";
    close F
  };
# gold is on the line with this string "<span class="accessAid">Gold:"
# for example
#                                    <span class="accessAid">Gold: </span>924                                </a>