A|{NameTag}|Command|{Name}|{Parameters...} 
##</code><code>##

 

my ($self,$nametag,$name,@params) = @_;#receives input from user
	
	my $tmp = {
	
		'NameTag' => $nametag,
		'Name'  => $name,
		
	}; 

#i don't know how to extract the contents of @params and put it in the $tmp hash
	my $InputRequest = $Obj->CreateString($tmp);


}

sub CreateString

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

$str = "A|"
		  . $hash->{'NameTag'} . "|"."Command"."|"
                 
		  . $hash->{'Name'} . "|"
		  

return ($str);
}