sub username
{
        return "Perl紫亜萌え";
}
sub message
{
    my($x, $i, $s) = @_;
    $x++;
    for($i = 0; $i < $x; $i++) {
        $s .= "\r\n" if(($i % 6) == 0 && $i);
        $s .= "紫亜ヽ(*´ー`)ノ ";
    }
    return $s;
}

(;´Д｀)