#!/usr/bin/perl -w
use SOAP::Lite +trace => qw( debug );

my $user="perly";
my $password="xxxxx";

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0; 
 my $soap = SOAP::Lite->service("http://192.168.2.33:8881/ws/datacsv?wsdl");

####################################
my @headers = (
    SOAP::Header->name('Username')->value($user),
    SOAP::Header->name('Password')->value($password),
);
##################################

 eval { my $result = $soap->getdata(@headers); };
 if ($@) {
     die $@;
 }
 print $om->result();
print "HEADER @headers";