Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

There are no present errors however the message still isn't sending. Anyone who's familiar with Net::Aim have any idea why?
#!/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' => '', 'port' => 1234, 'allow_srv_settings' => 1, 'login_server' => '', 'login_port' => 5198, 'login_timeout' => 0, ); print "Information is being passed.\n"; $aim->signon(); print "Aim is signed on.\n"; $aim->toc_send_im($destuser, $message); print "Done\n";