nicht angemeldet
Du könntest zum Beispiel die Datei in ein array lesen und dieses an den Browser ausgeben.
etwa so(nur so ne schnelle idee):
#!/usr/bin/perl
$dat1 = "d1";
open (DATEI, "$dat1.txt"); #das semikolon hat beim ersten mal #gefehlt, sorry
flock (DATEI, 2);
$max=0;
while (<DATEI>)
{
push(@inhalt,$_);
$max++;
}
close (DATEI);
flock (DATEI, 8);
print "content-type: text/html\n\n";
print <<html_e;
<html>
<head>
<title>irgendwas</title>
<body>
@inhalt
</body>
</html>
html_e
exit;