Mandy S.: [GET] [POST] Request schlägt fehl! Bitte um Hilfe

Beitrag lesen

Guten Morgen zusammen,
ich habe folgende Aufgabe:

Kunde tippt seine Daten ein und schickt sie an eine PERL ab (via POST),
die PERL verarbeitet die Daten und soll einen GET-Request an eine EXE (C#) schicken,
dise EXE gibt dann einen Response zurück.

Klingt einfach, ist es aber nicht (nicht für mich).

Ich habe es mit GET und POST probiert, beides klappt nicht.

use CGI;  
use LWP;  
use LWP::Simple;  
use HTTP::Headers;  
use HTTP::Request;  
use HTTP::Message;  
  
my $ua = new LWP::UserAgent;  
   $ua->agent("MudGuard/1.0");  
  
my $content = "WebKundenNr=$WebKundenNr&State=$State&GetData=$GetData&LandKurz=$country";  
my $contlen = length($content);  
  
my $req = HTTP::Request->new("POST", "https://www.XYZ.de/bl_checkout/GetData");  
   $req->header("content-length" => $contlen);  
   $req->header("content-type" => "application/x-www-form-urlencoded");  
   $req->header("content-encoding" => "iso-8859-1");  
   $req->content($content);  
  
my $res = $ua->request($req);  
  
print "Result Code: ".$res->code."\n\nResult Content: ".$res->content."\n\nResult Message: ".$res->message;  

Als Antwort bekomme ich folgendes:
Result Content: 500 Connect failed: connect: Connection refused; Connection refused

Result Message: Connect failed: connect: Connection refused; Connection refused

Wenn ich es mit GET versuche bekomme ich keinen Response:

use CGI;  
use LWP;  
use HTTP::Message;  
use LWP::Simple;  
  
$Response = LWP::UserAgent;  
$Url = "https://www.XYZ.de/bl_checkout/GetData?WebKundenNr=$WebKundenNr&State=$State&GetData=$GetData";  
$Response = get($Url);

Der Inhalt von $Response ist leer, ABER wenn ich die $Url mit gefüllten Werten im Firefox eingebe, bekomme ich einen Response, wie kommts?
z.B.: https://www.XYZ.de/bl_checkout/GetData?WebKundenNr=1234567890&State=4&GetData=FF93934FWEF828323234234FF
Was mache ich Falsch? Bin ein neuling in Perl... Danke!