#!/usr/bin/perl -s
use strict;
use warnings;
use diagnostics;
use Net::OSCAR;
my $uin = 123456;
my $passwd = 'qwerty';
my $adminuin = 654321; ## Your UIN
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);

}