Select Code to Download

BEGIN {
    package MySerializer;
    @MySerializer::ISA = 'SOAP::Serializer';
...
        $_[2] =~ s/Response$// if $_[1] =~ /^(?:method|response)$/;
        shift->SUPER::envelope(@_);
    }

#!/usr/bin/perl

use SOAP::Lite +trace => 'debug';
...

$res = $som->result;                               
print Dumper($som);