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

##</code><code>##

$oscar->set_callback_im_in(\&im_in);