I suppose it would be something akin to (nonexistent module) Net::IM - maybe read thusly:

my $im = new Net::IM;
$im->on_connect( &on_connect_handler );
$im->on_im_recv( &on_im_recv_handler );

$im->connect( 'Net::OSCAR', $username, $password );

$im->send_im( $to_user, $msg );

sub on_im_recv_handler {
   my ($user, $msg) = @_;
   print localtime() . "\tYou recieved an im from $user!\n\t\t$msg\n\n
+";
}
[download]