#!/usr/bin/perl

use strict;
use warnings;

use CGI qw( :all );
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
my $url;
my $links = '/SAN/content/cgi-bin/links';

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

open (INFO, '<', $links)
or die "Fehler beim Oefnen von $links: $! ";

while (my $zeile = <INFO>) {
   if($. % 2 == 1){
     print $cgi->p('',$cgi->a({-href => $url},$zeile]));
   }
   else{
     $url = $zeile;
   }
}
close (INFO);
print $cgi->end_html();