use HTTP::Request::Common qw(POST);
  use LWP::UserAgent;
  $ua = LWP::UserAgent->new;

  my $req = POST 'http://www.host.com/login.php?sid='.@sids[0],
                [ username => 'myUserName', password => 'myPasswd', login => 'Connexion' ];

  print $ua->request($req)->as_string;

##</code><code>##


open WRITER3 ,"> header.txt"

my $res = $ua->post($url_base.'?sid='.$sids[0],[username => 'myUsername', password=>'myPasswd',login=>'Connexion']);

print WRITER3 $res->as_string;