#!/usr/bin/env perl
use CGI::Carp "fatalsToBrowser";
use strict;
print "Content-type: text/html\n\n";
print "
Test\n";
print "Hello!
\n";
# Read a text file #
open (TXTFILE, "01.txt") or die "Err $!\n";;
while (){
if ($. == 2) {
print "Zeile 2: $_\n
";
last;
}
}
print "\n";