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
+";
}
It's not what you look like, when you're doin' what you’re doin'.
It's what you’re doin' when you’re doin' what you look like you’re doin'! - Charles Wright & the Watts 103rd Street Rhythm Band
|