Ja, ich glaub auch ohne Kommentar geholfen zu haben.
#!/usr/bin/perl
#Standart header des Perlscripts
$ip = $ENV{'REMOTE_ADDR'};
#einlesen der IP des ankommenden
print "Content-type: text/html\n\n";
#Ausgabe ist HTML
if($ip eq "127.0.0.1") #wenn die IP 127.0.0.1 ist dann...
{
print "Location: http://www.ok.de/\n\n; #...gehe zu ok
}
else #wenn nicht 127.0.0.1 dann...
{
print "Location: http://www.failed.de/\n\n; #gehe zu failed
}
Gruß
Torwächter