use LWP::UserAgent, Daten mit POST übertragen

[Ralf]

Hallo,

ich möchte mit aus einem Perl Script einen URL aufrufen und dabei Daten mit POST übergeben.
Der URL ist Passwort geschützt.

  
#!/usr/local/bin/perl  
print "Content-type: text/html\n\n";  
use LWP;  
use LWP::UserAgent;  
  
  
my $URI = 'http://meineDomain/test.php';  
my $user = 'NAME';  
my $pass = 'PW';  
  
# define user agent  
my $ua = LWP::UserAgent->new();  
$ua->agent("USER/AGENT/IDENTIFICATION");  
  
# make request  
my $request = HTTP::Request->new(POST => $URI);  
  
# authenticate  
$request->authorization_basic($user, $pass);  
  
# except response  
my $response = $ua->request($request);  
  
# get content of response  
my $content = $response->content();  
  
# do whatever you need to do with the content here  
print $content;  

Der Aufruf und die Übergabe von $user und $pass funktionieren.
Aber wie bekomme ich meine key->value Paare, die ich übergeben möchte hier rein?

Gruß
Ralf