view release on metacpan or  search on metacpan

bin/html2ps  view on Meta::CPAN

    if ($opt_k) {
      require HTTP::Cookies;
      $cookie_jar = HTTP::Cookies::Netscape->new(File => $opt_k, AutoSave => 1);
      $ua->cookie_jar($cookie_jar);
    }
    $req = HTTP::Request->new(GET => $url);
    $req->authorization_basic(@_) if(@_);
    $ua->agent($spoof) if($spoof);
    my $res = $ua->request($req);
    $code=$res->code;
    $contyp=$res->header('content-type');
    $cont=$res->content;
  } else {
    require "www.pl";
    @opts=@_?("authorization=$_[0]:$_[1]"):();
    push(@opts,"quiet") if(!$opt_d);
    $www::useragent=$spoof if($spoof);
    ($status,$memo,%info)=&www::open_http_url(*FILE,$url,@opts);
    $code=$info{'CODE'};
    ($contyp)=$info{'HEADER'}=~/Content-type:\s+(.*)/i;
    $cont=<FILE>;