#!/usr/bin/perl --

use strict;
use warnings;

use SOAP::Lite;

my $content = SOAP::Serializer->prefix('s')->envelope(
    'response',
    SOAP::Data->name( 'hi' . 'Response' )
      ->uri( 'namesp1' ),
    'Hello',
);

print $content,"\n";

__END__