use CGI::Carp qw(fatalsToBrowser);
print "Content-Type: text/html\n\n";
use Net::OSCAR qw(:standard);
$uin="сюда я вписываю юин";
$password="Здесь пароль";
sub im_in {
	my($oscar, $sender, $message, $is_away) = @_;
	print "[AWAY] " if $is_away;
	$oscar->signoff;
}
$oscar = Net::OSCAR->new();
$oscar->set_callback_im_in(\&im_in);
$oscar->signon($uin, $password);
$oscar->send_im('Здесь юин получателя', 'fnjh');
while(1) {
$oscar->do_one_loop();
}