use strict;
use warnings;
use SOAP::Lite+trace=> 'debug';
{
    ##Connecting to the SOAP API
    my $request = SOAP::Lite->service('http://searchapi2.dialog.com/axis/DialogSearch.wsdl');

    ##The session object with parameters
    my $session = {};
    $session->{Account}   = 'account';
    $session->{Password}  = 'pass';
    $session->{State}     = 'START_SESSION';
    $session->{Cost}      =  0;
    $session->{Atomic}    = 'True';
    $session->{Interupt}  = 'False';
    $session->{ProcessID} = '';

    ##Calling the version function
    my $result = $request->Version($session);
}