#!/usr/bin/perl

use strict;
use warnings;

use Net::AIM;

my $aim;
my $conn;

print "Subject's name:";
chomp(my $destuser = <STDIN>);

print "Message:";
chomp(my $message = <STDIN>);


print "Starting Net::Aim\n";
 $aim = new Net::AIM;
 
print "Connecting with loging crudentials\n"; 
  $conn = $aim->newconn(Screenname   => 'wfgs343R',
                        Password     => 'iamcool');
                        
print "Login sucessfull!\n";
  $aim->start;
print "Beginning AIM\n";

$aim->send_im($destuser, $message);  
print "Message sent.\n";