use WWW::Mechanize;
use HTTP::Cookies;
my $outfile = "Result.htm";
my $url = "https://www.bittorrent.com/account/signin";
my $username = "abcd";
my $password = "abcd";
my $cookiefile = 'cookies.txt';
my $cookie_jar = HTTP::Cookies->new(File => $cookiefile, autosave =>1);
my $mech = WWW::Mechanize->new();
$mech->cookie_jar($cookie_jar);
$mech->get($url);
print "form submit failed!", $mech->response->status_line, "\n" unless $mech->success;
$mech->set_visible( $username );
$mech->click_button(value => "Sign In");