Redirect, brauche Hilfe

[Beat]

#!/opt/gnu/bin/perl

use Crypt::CBC;
use Exception::Class::TryCatch;

use warnings;
use strict;

print "Content-Type: text/html;charset=iso-8859-1\n\n";

An diesem Punkt hast du dir die Chance vertan, einen HTTP Header rauszuschicken.
Verzögere diese Ausgabe, bis du weisst, ob du einen Location header oder normalen Inhalt senden willst.

sub login
{
use CGI;
use LWP;
use HTTP::Message;
use LWP::Simple;

$Abfrage = LWP::Simple;

my ...

$url = "http://www.example.com/cgi-bin/Login.exe/Login?$Daten&Land=USA&Sprache=EN";

my ...

$Abfrage = get($url);

if($Abfrage ne '') { print "$Abfrage"; }
else {
   print "Location: http://www.google.com\n\n";
   exit;
}
}

  
mfg Beat

-- 

><o(((°>           ><o(((°>  

   <°)))o><                     ><o(((°>o  
Der Valigator leibt diese Fische