#öffne Datei $datei (Form: *.JPL) und lese Zeile der Datei ein
open(DATEI, "<infos.txt") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
for(my $i = 0; $i <3; $i++) {
 $string .= '<p align="center">'.$Zeilen[i].'</p> ';
}