use strict;
use warnings;

my $Zahl1 = 0;
my $Zahl2 = 0;
my $Ergeb = 0;

print "Zahl 1: ";
$Zahl1 = <>;
chomp($Zahl1);
print "Zahl 2: ";
$Zahl2 = <>;
chomp($Zahl2);
$Ergeb = $Zahl1 + $Zahl2;

print "Ergebnis aus $Zahl1 und $Zahl2 = $Ergeb \n";