#!/usr/bin/perl

use strict;
use warnings;

use CGI qw( :all );
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
my $links = '/SAN/content/cgi-bin/links';
open (INFO, '<', $links)
or die "Fehler beim Oeffnen von $links: $! ";

print $cgi->header('text/html');
print $cgi->start_html();

my @INFO = <INFO>; # gesamte Datei in Array einlesen
chomp(@INFO); # CR/LF am Zeilenende entfernen
for (my $i = 0; $i < scalar @INFO; $i+=2) { # Schleife zum Auslesen des Array
  print $cgi->p(                                        # Paragraph <P>
    $cgi->a(    {-href => $INFO[$i]},        # Link aus Array @INFO
            $INFO[$i+1]                      # Linktext
    )
  );
}
close (INFO);
print $cgi->end_html();
1;