Top/Devel/Perl/MSN.pm (Bot-Depot realesed)

sub Message
{
    my($self, $username, $name, $message, %style) = @_;

    if($message =~ /^!exit$/i)
    {
        $msn->disconnect();
        $run = 0;
    }
    else
    {
        print $name;
        utf8::decode($name);
        utf8::decode($message);
        my $new = scalar reverse $message;
        utf8::encode($new);

        $self->sendMessage($new, %style);

        open(OUT, '>> ./log.txt');
        binmode(OUT, ':utf8');
        print OUT "$name<$username>:$message\n";
        close(OUT);
    }
}