#!/usr/bin/perl

use strict;
use warnings;

my @infos; # Array für die einzelnen Eingaben

for (my $i=1; $i<=3; $i++) {
  print "Information #$i eingeben: "; # Ausgabe
  $infos[$i-1] = <STDIN>; # Eingabe lesen
}
chomp(@infos); 

open(DATEI, ">", "meineinfos.txt") or die "$!";
foreach(@infos) {
  print DATEI "$_\n"; # Zeilenweise abspeichern
}
close(DATEI) or die "$!";

1;

#ö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> ';
}

for(my [u]$i[/u] = 0; $i <3; $i++) {
$string .= '<p align="center">'.$Zeilen[[u]i[/u]].'</p> ';