Help for this page

Select Code to Download


  1. or download this
    my $res = $ua->request($req);
    if ($res->is_success){print $res->as_string;
    }else{print $res->status_line;
    }
    
  2. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    
    close SOCK;
    
  3. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    </HTML>
    END_HTML