NAME

IO::Shaper - Simple TCP Traffic Shaper

SYNOPSIS

  use IO::Shaper;

  my $shaper = IO::Shaper->new( LocalPort => 8000,
				PeerAddr  => "my.site.com:80",
				Bps       => 6000 ); # 6000 Bytes/sec. =~ 48,000 bits/sec.

  $shaper->run(); # does not return

DESCRIPTION

IO::Shaper can be used to implement a point-to-point TCP tunnel that limits bandwidth.

BUGS

This module only works for TCP connections. It has only been tested on Linux.

AUTHOR

Benjamin Holzman, <bholzman@earthlink.net>