#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
use WWW::Salesforce;
use Data::Dumper;

my $sforce = eval { WWW::Salesforce->login(
                    username => 'xxxxxxx',
                    password => 'xxxxxxx',
					serverurl=> 'https://xxxxxxx.salesforce.com/services/Soap/u/34.0'); };
die "Could not login to SFDC: $@" if $@;

my @tableattribute_ref=$sforce->describeGlobal()->result->{sobjects};