my $im = Net::IM->new(debug => 1);

my $yahoo = $im->addConnection (
    network  => "YMSG",
    username => "aidenrive",
    password => "big-secret",
    hexdump  => 1,
);

$im->addHandlers (
    connected    => \&on_connected,
    notification => \&on_notification,
    Message      => \&on_message,
    Attention    => \&on_buzzed,
    AddRequest   => \&on_added,
    Typing       => \&on_typing,
    BuddyStatus  => \&on_buddy_status,
    BuddyList    => \&on_buddylist,
    BuddyOnline  => \&on_buddy_online,
    BuddyOffline => \&on_buddy_offline,
    Disconnected => \&on_disconnected,
    BuddyIconDownloaded => \&on_icon_downloaded,
    BuddyIconUploaded   => \&on_icon_uploaded,
);

$im->login();
$im->run();