A perl script that fakes IRC channel activity