Help for this page

Select Code to Download


  1. or download this
         $ua = LWP::UserAgent->new;
     my $req = HTTP::Request->new(GET =>   
         "http://localhost:8998/foo");
     $req->authorization_basic('fo', 'fi');
     my $res = $ua->request($req) ;
  2. or download this
     while( $Qclean->pending ) {
             my $fno = $Qclean->dequeue();
            close delete $self->{ Clients }{ $fno };
        }
  3. or download this
    my $fno = $Qclean->dequeue();
close delete $self->{ Clients }{ $fno };