The program below hangs was an infite time after you supply the second line of input. It doesn't pop up an error, the program just kind of halts but still does something in the background. Anyone know why that doesn't happen/know if this is the only reason messages send?
#!/usr/bin/perl
use strict;
use warnings;
my $user = "wfgs343R";
my $pass = "iamcool";
my $aim;
print "Subject's Name:";
chomp(my $destuser = <STDIN>);
print "Message:";
chomp(my $message = <STDIN>);
use Net::AOLIM;
$aim = Net::AOLIM->new(
'username' => $user,
'password' => $pass,
'callback' => \&callbackfunction,
'server' => 'toc.oscar.aol.com',
'port' => 1234,
'allow_srv_settings' => 1,
'login_server' => 'login.oscar.aol.com',
'login_port' => 5198,
'login_timeout' => 0,
'aim_agent' => "$Net::AOLIM::VERSION");
$aim->signon;
$aim->toc_send_im($destuser, $message);
print "Done\n";