my $mech = WWW::Mechanize->new(autocheck => 0);
        &log('INF',"Login IN");
        my $url = "http://www.example.com/signin";
        my $username = $mail;
        my $password = $password;
        my $cookie_jar = HTTP::Cookies->new();
        $mech->cookie_jar($cookie_jar);
        $mech->get($url);
        my $form = $mech->form_id('form1');
        $mech->field("Email", $username);
        $mech->field("Password", $password);
        $mech->click('signIn');
        my $ua = LWP::UserAgent->new(
            cookie_jar => $cookie_jar
        );
[download]