Select Code to Download

my @masters = ("John","Paul","George","Ringo");

sub is_master
{
...
        return 0;
    }
}

sub do_command
{
...
        undo_ignore($conn,$event,$p1);
    }
}

sub do_help
{
...
    $conn->privmsg($nick, "-------------------------------------------
+-----------------");
    $conn->privmsg($nick, "Fim do help.");
}