Код:
######################
#### IBot_v0.2
#### Сырой код by
#### flabber
####
######################
#!/usr/bin/perl
use Net::OSCAR;
use LWP::UserAgent;
my $oscar = Net::OSCAR -> new;
$oscar -> set_callback_im_in(\&online);
my $uin='';
my $pass='';
$oscar -> signon($uin, $pass);
while (1) {
$oscar -> do_one_loop;
}
sub online {
my ($oscar, $sender, $message) = @_;
my $uin=$message;
my $ua = LWP::UserAgent->new;
sleep(1);
my $response = $ua->get("http://webtools.xakepok.org/invisible/invis.php?uin=$uin");
if ($response->is_success) {
$message2=$response->content;
sleep(1);
$oscar -> send_im($sender, $message2);
}
}