Select Code to Download

sub im_in {
           my($oscar, $sender, $message, $is_away) = @_;
           print "$sender: $message\n";
          }

$oscar->set_callback_im_in(\&im_in);