#!usr/bin/perl
#aufg 7 Nr 1

use strict;

open (OUT, ">nikolaus.txt");

my $anz;

print "Wie oft soll gefragt werden?>>>\n";
$anz = <>;

while ($anz != 0){
  print "Wann kommt endlich der Nikolaus?\n";
  print OUT "Wann kommt endlich der Nikolaus?\n";
  $anz--;
}