Fun with Net::AIM

[Adam Gregory]

#!/usr/bin/perl
 $sn = "Your Aim Screename";
 $pw = "Password";

 use Net::AIM;
 $aim = new Net::AIM;
 $aim->debug(1);
 $conn = $aim->newconn(Screenname=> $sn,Password=>$pw) or die
"Can't connect to AIM server.\n"; ;
 print "Logged on to AIM \n\n";
 $aim->start;
$aim->send_im('tradotto', 'testing...');
#INCOMING !!!!

sub on_im {
       my($aim,$evt,$from,$to)[EMAIL PROTECTED];
       my $args = $evt->args();
       ($from, my $friend, my $msg) = @$args;
       $aim->send_im("tradotto", "test...");

       $aim->send_im($from, "Test...");
}