Foro - Perl en Español

Buen día,

Aquí expongo mi duda, ya que tengo un archivo que tengo que correr por semana para acceder a una página web, pero cambiaron la forma de acceso. Yo no hice el script ya que apenas ando empezando en aprender Perl. Bueno, aquí anexo mi duda...

Este es el script que tengo para acceder la parte del login:

#!/usr/bin/perl
use strict;
use Spreadsheet::WriteExcel;
use Win32::IEAutomation;
use Win32::IEAutomation::WinClicker;
use Win32::IEAutomation::Table;
use DBI;
use Data::Dump qw(dump);
use vars qw/$dbh $sth $dbh2 $sth2 $dbh3 $sth3 $SQL $stm2 $stm3 $request $response $net_gross $currency $worksheet $margin_id $margin_rate @urls @margin @sku/;

my $ie = Win32::IEAutomation->new();
my $clicker = Win32::IEAutomation::WinClicker->new();
$ie->gotoURL("http://*********", 1);
$ie->WaitforDone;
$ie->getTextBox('name:', 'fUsuario')->SetValue("*****");
$ie->getTextBox('name:', 'fContrasenia')->SetValue("******");
$ie->getButton('name:','entrar')->Click();
$ie->WaitforDone;
sleep(20);
$ie->closeIE();
sleep(10);

Aquí muestro la página web donde no me da acceso ya que al momento de dar al botón no me deja. Lo dejé de forma original, lo he cambiando pero no me resulta.

<td>Usuario&nbsp;</td><td><input name="fUsuario" type="text" class="me_login"></td>
<td>&nbsp;&nbsp;Contrase&ntilde;a&nbsp;</td><td><input name="fContrasenia" type="password" class="me_login"><input name="fmtipo" type="hidden" id="fmtipo" size="10" value="contacto"></td>
<td><input type="image" src='imagenes/me_boton.jpg' onClick="return check(this)"></td>


El campo de "fUsuario" y el de "fContrasenia" sí me los pone pero al momento de dar al botón para acceder, nada.

Saludos

Buen día, explorer.

Gracias por tus comentarios, he realizado los cambios que me mencionas pero no me hace ninguna acción. Si hay alguna otra opción para ir investigando, o si me puedes dar una pista, no para la resolución sino para investigar. Más que todo tengo ganas de aprender este lenguaje.


Saludos