sub CreateString {
    ( my $self, my $hash ) = @_;

    my $str = "A|"
          . $hash->{'NameTag'} . "|"."Command"."|"         
          . $hash->{'Name'} . "|"
          . join( "|", @{ $hash->{ Params } } );

    return ($str);
}