#!/usr/bin/perl -w

use CGI;
use CGI::Carp qw(fatalsToBrowser);
$cgi = new CGI;

$links = '/SAN/content/cgi-bin/links';
open (INFO, '<', $links)
 or die "Fehler beim Ãfnen von $links: $! ";

print $cgi->header('text/plain');
while (my $zeile = <INFO>) {
$cgi->a({-href => '$zeile'},'Link auf selfhtml.org')),
}
close (INFO);

#!/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 Oefnen von $links: $! ";

print $cgi->header('text/html'); # ! nicht /text/plain
print $cgi->start_html();
while (my $zeile = <INFO>) {
  print $cgi->a({-href => $zeile},'Link auf selfhtml.org'); 
}
close (INFO);
print $cgi->end_html();
1;