my $cookie_jar_obj = HTTP::Cookies->new(ignore_discard=>1,hide_cookie2=>1);
  my $ua=LWP::UserAgent->new(keep_alive=>1);
  $ua->cookie_jar( $cookie_jar_obj ); 
  $cookie_jar_obj->set_cookie(0, 'JSESSIONID', 'F97AC6F5AD33D54D0C06F4CBF0230C43'
                             , '/', 'place.to.go.to', 80
                             , '', '', 14400000, 0 
                             ); 
  $cookie_jar_obj->set_cookie(0, 'LoginUsername', 'Operator'
                             , '/', 'place.to.go.to', 80
                             , '', '', 14400000, 0 
                             ); 
  $cookie_jar_obj->set_cookie(0, "LoginPassword", 'Operator'
                             , '/', 'place.to.go.to', 80
                             , '', '', 14400000, 0 
                             ); 
$repeatme=1; 
while ($repeatme) { 
  my $getline='http://place.to.go.to/'; 
  my $req = new HTTP::Request (GET => $getline); 
  my $request = $ua->request ($req);
  if (some-test-for-done){ $repeatme=0;} 
  }