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

my $conn = $aim->getconn();
##</code><code>##

$conn->set_handler('config', \&on_config);
$conn->set_handler('im_in',    \&on_im);
$conn->set_handler('error',    \&on_error);
$conn->set_handler('eviled',    \&on_evil);

$aim->start;