#!/usr/bin/perl -w

use strict;
 
use WWW::Mechanize;
use HTTP::Cookies;
 
my $bot = WWW::Mechanize->new( autocheck => 0 );
$bot->cookie_jar(
        HTTP::Cookies->new(
            file           => "cookies.txt",
            autosave       => 1,
            ignore_discard => 1,
        )
);

my $response = $bot->get( 'https://bitshare.com/login.html/' );

$bot->form_number(1);

$bot->field( user => 'user' );
$bot->field( pass => 'pass' );
$response = $bot->click();

print $response->content();