use strict;

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

print "Zahl 1 \n";
$Zahl1 = <>;
print "\nZahl 2 \n";
$Zahl2 = <>;
$Ergeb = $Zahl1 + $Zahl2;

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