Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$end = time;
print "IO::Socket::INET end " . $end . "\n";
print "IO::Socket::INET time = " . ($end - $start) . "\n\n";
  2. or download this
    C:\>perl test.pl
LWP strat 1192833431
...
IO::Socket::INET time2 1192833448
IO::Socket::INET end 1192833448
IO::Socket::INET time = 16
  3. or download this
    @html=<$socket>; # Attention here, why spent so much time?