$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();