Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;

...
    $pua->wait(0); # returns hashref
    $pua->initialize;
}
  2. or download this
    #!/usr/bin/perl -w
use strict;

...
    print "$myPUA::connections connections in $sec seconds\n";
    printf "%.1f conn/s\n", $myPUA::connections / $sec;
}