# Eingabe eines Zahlenwertes verlangen:
print "\nBitte geben Sie eine Zahl zwischen Null und Zehn ein:\n";
chomp (my $zahl = <STDIN>);

# wobei wenn die Eingabe größer als 10 oder kleiner als 0 ist, soll eine Fehlermeldung ausgegeben werden.
die "Die Zahl darf nicht größer als 10 sein!" if $zahl > 10;
die "Die Zahl darf nicht kleiner als 0 sein!" if $zahl < 0;

# Ist der Wert korrekt soll der Eingabewert potenziert und das Ergebnis ausgegeben werden.
my $potenz = 2;
print $zahl ** $potenz, "\n";

# Danach soll der Eingabewert um 1 erhöht werden, danach wieder potenzieren und das ganze 5 mal.
for (1..5) {
    ++$zahl;    
     print $zahl ** $potenz, "\n";
}