#! /usr/bin/perl -wl
use strict;
use SOAP::Lite;
use Data::Dumper;
$Data::Dumper::Indent = 1;

my $soap = SOAP::Lite->service(
  'file://users/btilly/responsys/ResponsysWS.wsdl'
)->proxy(
  'https://ws1.responsys.net/webservices/ResponsysWS?wsdl'
);

$soap->login('USER', 'PASSWORD');

print $soap->listFolders;