use WWW::Mechanize;
use URI::URL;
use LWP::Simple;

        $url="https://www.bittorrent.com/account/signin";
        $m=WWW::Mechanize->new();
        $m->get($url);
        $content=$m->content;

        open(FD,">>html");
        print FD "$content\n";

        $username="shekar";
        $password="shekar";
        $m->set_visible($username,$password);
        $m->submit();