Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
my $file3 = $resp->content;
print "Size: ", length $file3;
printf "Transfer rate: %5.2f bytes/sec\n", length( $file3 ) / $time3;
  2. or download this
    C:\test>Win32Itest.pl
LWP::Simple took  14.703 seconds
...
Size: 64230
Transfer rate: 4340.89 bytes/sec
  3. or download this
    C:\test>wget http://www.mirrorservice.org/sites/ftp.funet.fi/pub/langu
+ages/perl/CPAN/authors/id/J/JD/JDB/Win32-Internet-0.084.tar.gz
--02:17:39--  http://www.mirrorservice.org/sites/ftp.funet.fi/pub/lang
+uages/perl/CPAN/authors/id/J/JD/JDB/Win32-Internet-0.084.tar.gz
...
100%[==============...==============>] 64,230         4.51K/s    ETA 0
+0:00

02:17:54 (4.60 KB/s) - `Win32-Internet-0.084.tar.gz' saved [64230/6423
+0]