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

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

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

#print Dumper($return);

if ($return->fault) {
  die $return->faultstring;
}

$return = $soap->listFolders();

if ($return->fault) {
  die $return->faultstring;
}