#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use MyClientRest::ClientRest;

my $host = "http://127.0.0.1:8000";

# instatiate class
my $object = new ClientRest( $host );

my $username = "user";
my $password = "password";
my $file = 'test.txt';
my $upload = '/upload/';
my %optionsFile = ( "url"      => $upload,
		    "file"     => $file,
		    "username" => $username,
		    "password" => $password );

my $postFile = $object->postSnippetsFile( %optionsFile );
print Dumper $postFile;

__END__

$ perl restClient.pl
$VAR1 = 'Not a SCALAR reference at /usr/local/share/perl/5.22.1/LWP/Protocol/http.pm line 260.
';