Nachdem der OP sich nun verabschiedet hat, kann man das Rätsel auch für die Blöden lösen
"REQUEST_URI" abfragen. Nur bin ich wohl zu blöd dazu.
Dem stimme ich mittlerweile zu.
print FILE "WG $_ # $ENV{$_} WG\n";
^^^ ^^
print FILE $ENV(REQUEST_URI) ;
^^^ ^^^
Eigentlich sollte das eine Grundlage sein, die man Wissen muss, wenn man mit Perl arbeitet. Wenn man aber nur kopiert ohne zu kapieren, fällt das aber wohl nicht auf.
Struppi.