Select Code to Download

my $tmp = {
    NameTag => $nametag,
    Name    => $name,
    Params  => \@params,
};

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

    return ($str);
}

my $InputRequest = $Obj->CreateString({
                                NameTag => $nametag,
                                Name    => $name,
                                Params  => \@params,
                            });