Help for this page

Select Code to Download


  1. or download this
    $aim = new Net::AIM;
$aim->debug(1);
$aim->newconn( Screenname => $screenname, Password => $password ) or d
+ie "Can't connect to AIM server.\n";

my $conn = $aim->getconn();
  2. or download this
    $conn->set_handler('config', \&on_config);
$conn->set_handler('im_in',    \&on_im);
...
$conn->set_handler('eviled',    \&on_evil);

$aim->start;