Net::Shaper - Simple TCP Traffic Shaper
use Net::Shaper; my $shaper = Net::Shaper->new( LocalPort => 8000, PeerAddr => "my.site.com:80", Bps => 6000 ); # 6000 Bytes/sec. =~ 48,000 bits/sec. $shaper->run(); # does not return
Net::Shaper can be used to implement a point-to-point TCP tunnel that limits bandwidth.
This module only works for TCP connections. It has only been tested on Linux.
Benjamin Holzman, <email@example.com>