#!/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();