Help for this page

Select Code to Download


  1. or download this
        my $mbps = $arg{MegabitsPerSecond} || croak "No MegabitsPerSecond 
+passed";
    my $bps = $mbps * 1024 * 1024 / 8;

    my $bucket = new Algorithm::TokenBucket $bps, 10240;
  2. or download this
            sleep 0.01 until $bucket->conform($len);
        $bucket->count($len);