Fun with Net::AIM

#!/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)=@_;
        my $args = $evt->args();
        ($from, my $friend, my $msg) = @$args;
        $aim->send_im("tradotto", "test...");

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