my $AIM = new Net::AIM;
$AIM->newconn(Screenname   => $name,
        Password     => $password,
        AutoReconnect => 1)
or die "Unable to open AIM connection.\n";
my $conn = $AIM->getconn();