Perl Rest Client: HTTP Basic Auth mit CPAN Modul REST::Client

[Fonce]

Hi ich schreibe derzeit ein Skript zum testen meiner REST Services. (Soll für einen Massentest[1Mio durchläufe] dienen bei dem SoapUI ständig aussteigt da der HEAP der JVM immer vollläuft...)
Hierzu will ich das CPAN Module REST::Client verwenden. Ich habe allerdings das Problem das HTTP Basic Auth anscheinend nicht so richtig funktioniert.

Hat vielleicht schon mal jemand mit dem Modul gearbeitet und erkennt einen Fehler oder weis sonst vielleicht jemand wodran es liegt?

#/usr/bin/perl

#use strict;
use REST::Client;
use JSON;
# Data::Dumper makes it easy to see what the JSON returned actually looks like 
# when converted into Perl data structures.
use Data::Dumper;
use MIME::Base64;

my $serverURI = 'http://localhost:8080/foo';
my $restMethodOne = '/bar';
my $username = 'foot';
my $password = 'bar';

#build headers for Basic Authorization
my $headers = {
    Authorization => 'Basic '.  encode_base64($username . ':' . $password),
    Accept => 'application/xml', 
};

my $client = REST::Client->new(); 
$client->setHost($serverURI);
$client->POST($restMethodOne, '<addDocument></addDocument>', $headers); 
print "Response Code: " . $client->responseCode() . "\n";
print "Response Content\n" . $client->responseContent() . "\n";

 

[sasdensas]

my $username = 'foot';

Ist der User evtl. 'foo'?

 Authorization => 'Basic '.  encode_base64($username . ':' . $password),

Vor Basic evtl. noch Authorization: hinzufügen, oder wird dies schon automatisch gemacht?

 

[Fonce]

@32sasdensas
Der Nutzername den ich hier poste ist natürlich nicht der verwendete

und zum zweiten Punkt siehe hier
http://perl-seiten.homepage.t-online.de/html/perl_kompl.html#abs2

Aber trotzdem danke