use WWW::Mechanize;
    my $mech = WWW::Mechanize->new();
    $mech->cookie_jar(HTTP::Cookies->new);

    $mech->get( $forum_login );

if ($forum_type eq "number")
{
    $mech->submit_form(
        form_number => $forum_call,
        fields      => {
            $forum_user     => $username,
            $forum_pass    => $password,
        }
    );
  die "Couldn't submit form" unless $mech->success;

my $stuff = $mech->content;
print $stuff;

my $url = $mech->uri;
print $url;
}