#!/usr/bin/perl
	use strict;
	use warnings;
	use Storable;
	use POSIX qw(strftime);

# Parameter/host file
	require "host.pl";

# Environment Proxy
	our $http_proxyurl;
	our $http_proxyprt;
	$ENV{HTTPS_PROXY} =  $http_proxyurl . ':' . $http_proxyprt;

	use WWW::Salesforce;
		
	our $sfdc_username;
	our $sfdc_password;
	our $sfdc_secrtokn;
	our $sfdc_instance;
	our $sfdc_soap_url;
	our $sfdc_versnnum;
	our $oper_emailadd;
	
	my  $sfdc_loginatt = eval { WWW::Salesforce->login(
									username => $sfdc_username,
									password => $sfdc_password.$sfdc_secrtokn,
									serverurl=> 'https://' . $sfdc_instance . '.' . $sfdc_soap_url . $sfdc_versnnum ); };
		if ($@) {
			warn  "Could not login to SFDC: $@";
			die;
		};