#!/usr/bin/perl
use HTML::TreeBuilder;
use WWW::Mechanize;             
my $m = WWW::Mechanize->new; 

$m->get('http://localhost/test/Teste.html');
die $m->res->status_line unless $m->success;
           
# remplissage et validation
open (fich,"</home/wassim/IP");
$ligne =<fich>;
print $ligne;
$m->set_fields(
region => 'MOI', # entrez vos identifiants de connexion ici
code => 'moi',
ip => $ligne,
);
$m->click;
die $m->res->status_line unless $m->success;
                                                    
# un cadeau ?
print localtime() . " - Connecté !\n"
if $m->content !~ /c pas votre jours de chance /;