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

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

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

    return $string;
}

##</code><code>##

my $InputRequest = $Obj->CreateString('tag-1', 'name-1', @params);