sub CreateString
{
    my ($self, $nametag, $name, @params) = @_;

    my  $string = "A|$nametag|Command|$name";

    $string .= "|$_" foreach @params;

    return $string;
}