#!/usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $page = "https://www.realquest.com/jsp/rq.jsp?action=switch&page=main";

$mech->get($page);
$mech->form_number('1');
$mech->field('username' => 'test');
my $results = $mech->submit();
print $results->content(), "\n";