Hey,
This isnt all THAT cool but worth mentioning :)
This is an XChat script that will send a Bone::Easy pickup line to the current channel. Simple but effective...

#!/usr/bin/perl

use Bone::Easy;

IRC::print "\0035:: Loading Bone::Easy ::\003 \n";
IRC::register ("Bone::Easy");
IRC::add_command_handler("bone", "bone");

sub bone { IRC::command pickup; 1; }
[download]

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.