use warnings;
use strict;
use Net::AIM;

my $aim = new Net::AIM;
$aim->newconn(Screenname => 'TeamMonkeyCrap', Password => '******') or die $!;
my $conn = $aim->getconn();
$aim->start;
$conn->send_im('gazuga69', 'It worked!');