my $mbps = $arg{MegabitsPerSecond} || croak "No MegabitsPerSecond passed";
    my $bps = $mbps * 1024 * 1024 / 8;

    my $bucket = new Algorithm::TokenBucket $bps, 10240;