#!/usr/bin/perl -s
use strict;
use warnings;
use diagnostics;
use Net::OSCAR;
my $uin = тут_юин;
my $passwd = 'пасс_к_нему';
my $adminuin = мой_юин;
my $icq = Net::OSCAR->new;
$icq->set_callback_im_in(\&in) or die "[ERROR] [Cannot set callback] [$!]";
$icq->signon($uin, $passwd) or die "[ERROR] [Cannot sign on] [$!]";
$icq->do_one_loop while (not $icq->is_on);
$icq->do_one_loop while ($icq->is_on);
sub in {
	my($oscar, $sender, $message, $is_away) = @_;
	print "$sender: $message\n";
	$oscar->signoff() if ($message eq '!quit'  and $sender eq $adminuin);
	$oscar->send_im($sender,`uptime`) if ($message eq '!uptime' and $sender eq $adminuin);

}

AppName: perl.exe	 AppVer: 5.10.0.1003	 ModName: msvcrt.dll
ModVer: 7.0.2600.2180	 Offset: 0003709c