try {
        $aim = Net::AIMTOC->new;
        $aim->connect;
        $aim->sign_on($screenname, $password);
    }
    catch Net::AIMTOC::Error with {
        my $err = shift;
        print $err->stringify, "\n";
    };