Help for this page

Select Code to Download


  1. or download this
    my $a = WWW::Mechanize->new(autocheck => 1,
                                agent     => 'Mozilla/4.0 (compatible; MSI
    +E 6.0; Windows NT 5.0; T312461)',
    ...
                         'Accept'          => '*/*');
    
    $a->get($testpage, @silly_headers);
    
  2. or download this
    #!perl
    
    ...
    $a->success() or die "Failed to get ".($a->base).': '.$a->res()->as_st
    +ring()."\n";
    
    print "Page is ", $a->content, "\n";
    
  3. or download this
    Followed link to https://www.openinvoice.com/docp/corp/main/login
    Failed to get https://www.openinvoice.com/docp/corp/main/login: HTTP/1
    +.0 500 (Internal Server Error) Error from proxy
    ...
    <P>
    <ADDRESS>Proxy server at flash.sugarland.unocal.com on port 8080</ADDR
    +ESS>
    </BODY></HTML>