#!/usr/bin/perl -w
      
    use WWW::Scripter;
    
    my $urlLogin = "XXX";
    	
    my $viper = WWW::Scripter->new();
    		
    $viper->use_plugin('JavaScript');
    
    $viper->get($urlLogin);
          
    $viper->form_name('loginForm');
          
    $viper->field(username => "xxx");
    $viper->field(password => "xxx");
    
    $viper->click();