Help for this page

Select Code to Download


  1. or download this
    use HTTP::Request::Common qw(POST);
  use LWP::UserAgent;
...
                [ username => 'myUserName', password => 'myPasswd', lo
+gin => 'Connexion' ];

  print $ua->request($req)->as_string;
  2. or download this
    
open WRITER3 ,"> header.txt"
...
my $res = $ua->post($url_base.'?sid='.$sids[0],[username => 'myUsernam
+e', password=>'myPasswd',login=>'Connexion']);

print WRITER3 $res->as_string;