use strict;
use warnings;

    use HTTP::Cookies;
    use MIME::Base64;
    use WWW::Scripter;
    
    my $cookie_jar = HTTP::Cookies->new();
    
    my $wi = WWW::Scripter->new(cookie_jar => $cookie_jar);
    $wi->use_plugin('Ajax');
    $wi->credentials($loginUser, $loginPass);
    
    $wi->open("http://$ip/index.htm");
    $wi->open ("datetimeConf.htm", "tgtframe", , 0);
    $wi->get('javascript:document.getElementsByName("829")[0].value=1;');
    $wi = $wi->parent();
    $wi->get ('javascript:submitForm()');