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");
}