use strict;
use warnings;
use Log::TraceMessages qw(t);
use Data::Dumper;
use SOAP::Lite;
use LWP::UserAgent;
use HTTP::Cookies;
use SOAP::Transport::HTTP;

my $url = "http://mwebwtmmk9.xyz.com:15000/View/WebService/wsdl/View.wsdl";
    return $self->query->redirect(-uri => $url,
                                  -cookie => $self->redirect_cookie());

sub redirect_cookie {
#returns a cookie
    my $self = shift;

    my $uid = $self->performUser->corpId;
    my $lastName = $self->performUser->lastName;
    my $firstName = $self->performUser->firstName;

    return $self->query->cookie(-name  => 'statistics',
                                -value => "$uid|$lastName|$firstName",
                                -path  => "/",
                                -domain => ".xyz.com");
}

##</code><code>##

my @args=('DEVELOPMENT','test');
 warn SOAP::Lite
    -> service('http://mwebwtmmk9.xyz.com:15000/View/WebService/wsdl/V
+iew.wsdl')
    -> proxy('http://mwebwtmmk9.xyz.com:15000/View/WebService')
#   -> transport->cookie_jar(HTTP::Cookies->new($self->redirect_cookie
+()))
   -> getStuff(@args)
   -> result . "\n";