#!/usr/bin/perl -w

use strict;

use WWW::Mechanize::Firefox;

my $mech = WWW::Mechanize::Firefox->new(
    autoclose => 0,
    autodie => 1,
);

$mech->get('https://www-304.ibm.com/pkmslogin.form');

sleep 7;

my $dumy;
#found that with only username and password parameters in #set_visible function it entered only password in username #field so added this dummy variable.

my $username = 'user';

my $password = 'password';

$mech->set_visible( $dumy, $username, $password );

my $retries = 10;
while ($retries-- and ! $mech->is_visible( xpath => '//*[@id="submit"]
+' )) {
      sleep 1;
};
die "Timeout" unless $retries;