#!/usr/bin/perl
use WWW::Mechanize;
use Crypt::SSLeay;

my $mech = WWW::Mechanize->new( autocheck => 0);
$url="https://192.168.0.2";
$mech->get( $url );

print $mech->status;

$mech->form_name('HashForm1');
$mech->field("login_username",'username');
$mech->field("login_password",'password');
$mech->field("prefLanguage",00000000);
$mech->submit_form();

print "form submitted, reponse was ",$mech->status," printing header\n";

    my $response = $mech->response();
    for my $key ( $response->header_field_names() ) {
        print $key, " : ", $response->header( $key ), "\n";
    }
exit;