git clone git://github.com/typester/kamaitachi.git kamaitachi cd kamaitachi perl ./example/server.pl open ./example/client/**/*.swf
use Sniffer::RTMP;
Sniffer::RTMP->new(
device => 'en1',
callbacks => {
invoke => sub { .. },
audio => sub { .. },
video => sub { .. },
},
)->run;
use Sniffer::RTMP;
Sniffer::RTMP->new(
device => 'en1',
filter => 'tcp port 1935',
callbacks => {
invoke => sub { .. },
audio => sub { .. },
video => sub { .. },
},
)->run;