#!/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 Öffnen von $links: $!\n";                    

print $cgi->header('text/plain');
while (my $zeile = <INFO>) {
  print $zeile;
}
close (INFO);