#!perl
use strict;
use warnings;

my $zahl; # Variable deklarieren

# Eingabeaufforderung ausgeben
print "Bitte Zahl eingeben und Enter drücken: ";

# Zahl von Eingabe lesen
$zahl = <STDIN>;
# Zeilenende aus Variable entfernen
chomp($zahl);

# Abfrage wenn Zahl größer als 10
if ($zahl > 10) {
  print $zahl . " ist größer als Zehn\n";
  # erhöhe Variable $zahl
  $zahl++;
}
# Abfrage wenn Zahl kleiner als 10
elsif ($zahl < 10) {
  print $zahl . " ist kleiner als Zehn\n";
  # erhöhe Variable $zahl
  $zahl++;
}
# Abfrage wenn Zahl gleich 10
elsif ($zahl == 10) {
  print $zahl . " ist Zehn\n";
}

print "Und \$zahl ist jetzt $zahl\n";