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, <bholzman@earthlink.net>