I'm having some trouble with this module. I can't even seem to get it to sign online. Here is the code I'm currently working with:

#!/usr/bin/perl
use Net::OSCAR qw(:standard);

%signon = (
                screenname => 'myscreenname',
                password => 'mypassword',
           );

$recipient = "myfriend";
$message = "test message";

$oscar = Net::OSCAR->new();

$oscar->signon(%signon);

$oscar->send_im($recipient, $message);

$oscar->signoff();
[download]

As you can see, I just want something which will sign on, send a message, and sign off. All of these things I want to happen unprovoked (ie: not from first recieving a message from an outside source). Let me know what you guys think.

Thank you Monks.

- Justin

20050130 Edit by castaway: Changed title from 'NET::OSCAR'