#!/usr/bin/perl -w

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

$links = '/SAN/content/cgi-bin/links';  
open (INFO, $links);                    
@lines = <INFO>;                        
close (INFO);                           
foreach $zeile (@lines)                 
{
print $cgi->header('text/plain'), "$zeile\n\n";