#!/usr/bin/env perl
                                # Load CPAN modules
use strict; use Carp; use warnings;
use WWW::Salesforce;
                                # Trap warnings
$SIG{__WARN__} = sub { die @_; };

my $sforce = eval               # Log-in to SFDC
{
    WWW::Salesforce->login
    (
        username => 'baconname@yahoo.com' ,
        password => 'baconpass'
    );
};
die "Could not login to SFDC: $@\n" if $@;