Navigation

Hejsa eksperter. Jeg er igang med at læse omkring Perl.
Jeg vil lave denne navigations bjælke som findes her:

http://webcafe.dk/cgi-bin/webclaus/navigation.pl

Og er kommet frem til dette:

#!c:/Perl/bin/perl.exe

##########################################################################
###                                                                    ###
###      Gave fra WebClaus til tålmodige læsere af WebCafe ;o)        ###
###      -----------------------------------------------------        ###
###                                                                    ###
###            En fiks lille sag, der giver dine gæster              ###
###            en chance for at finde rundt på dit site              ###
###                                                                    ###
###                        claus@webclaus.com                          ###
###                                                                    ###
###                                                                    ###
##########################################################################

### Hvor mange niveauer er vi nede?

@niveauer = split(/\//, $ENV{'REQUEST_URI'});

$antal = $#niveauer;

### Laver liste over links og vender den rigtigt ;o)

for ($i=1;$i<=($antal+1);$i++) {

  $streng = join('/', @niveauer);
  $farvel = pop(@niveauer);
  $oversigt[$i] = "$streng--WebClausSjoveren--$farvel";
 
}

reverse(@oversigt);


### Smider oversigten tilbage i hovedet på browseren

print "content-type:text/html\n\n";
print "<a href=\"/\">forsiden</a> -> ";

for ($i=1;$i<=$antal;$i++) {

  ($url, $navn) = split(/--WebClausSjoveren--/, $oversigt[$i]);

  if($i<$antal) {
      print "<a href=\"$url/\"> $navn</a> -> ";
  } else {
      print " $indhold[1]";
  }

}

exit;

men det vil bare ikke rigtig virke når jeg inkludere det i SSI med dette:

<!--#exec cgi="link_til_perl_filen.pl" -->