/CGI Domain einer Variablen zuweisen

[Tobi]

Hallo!

Wie kann ich die Domain auslesen und als Variable in einem Perl-Script verwenden?

Ich brauche nur die Zeile: $var = ausgelesener Wert

Per SSI kann ich in eine HTML-Datei die Domain einfügen.

Bsp.:
<a href="http://<!--#echo var="SERVER_NAME"-->" target="_blank">home</a>

In meinem Script funktioniert's leider nicht...

MfG.

Tobi

---
mein "Versuchsscript":

zur Zeit bekommt die Variable "$var" den Wert direkt zugewiesen, hier soll aber der ausgelesene Wert verwendet werden.
var2 ist ein Versuch - geht aber nicht... (?)

#!/usr/bin/perl

use CGI;

print "Content-type: text/html\n\n";

$var2 = '$cgi->server_name()';
$var="subdomain.domain.de";

print "Variable: $var\n";
print "<hr size=1>\n";

$var=~m/.(.+)/;

print "Subdomain: $`\n";
print "<hr size=1>\n";

print "Domain: $_\n";
print "<hr size=1>\n";

print "Servervariable:<br>\n";
print "0: $var2<br>\n";
print "1: $cgi\n";
print "<hr size=1>\n";