#!/usr/bin/perl

use strict;
use warnings;

use Readonly;
use SOAP::Lite +trace => "debug";
use Data::Dumper;

Readonly my $SOAPURL => 'http://the.webservice/service/pers?wsdl';

my $service = SOAP::Lite->service($SOAPURL);

my $payload = SOAP::Data->name( 'persKeyParam' => '123456' );

my $info = $service->getEmpInfo( '', $payload );

print Data::Dumper->new( [$info], [qw/$info/] )->Indent(1)->Dump;