为什么ICQ机器人不发送消息？

Question

#!/usr/bin/perl
use Net::OSCAR qw(:standard);
$uin="7777777"; 
$password="1234567";
$sender = "43214312";
$text = "test";
$oscar = Net::OSCAR -> new();
$oscar -> signon($uin, $password);
$oscar -> send_im($sender, $text);
$oscar -> signoff();

为什么不给我发消息？

Answer 1

您不进行任何错误检查.这样做,问题将是显而易见的.