Help for this page

Select Code to Download

Select or download this

  use LWP::UserAgent;
  $ua = LWP::UserAgent->new;
...
  $ua->no_proxy(qw(no se fi));
  my $req = HTTP::Request->new(GET => 'wais://xxx.com/');
  print $ua->request($req)->as_string;