Help for this page

Select Code to Download


  1. or download this
    #!/usr//bin/perl -w
    use LWP::UserAgent;
    ...
    $latency = $end - $start;
     
    print length($response->as_string(  )), " bytes received in $latency s
    +econds\n";
    
  2. or download this
    #!/usr/bin/perl
    use strict;
    ...
    }
    
    __END__