#!/usr/bin/perl
use strict;
use warnings;

use CiviCRM::Client;
use Data::Dumper;

my $civicrm = CiviCRM::Client::REST->new(
'http://example.org', '37736c686aeGrt54skk705bfa9a9Hgsfll81');

print STDERR Dumper($civicrm);

if($civicrm->login({ 'name' => 'hesco', 'pass' => 'secret' })){
  print STDERR "succeeded in login attempt \n";
} else {
  print STDERR "failed to login \n";
}