use strict;

print "Digite um número: ";
my $x = chomp(<STDIN>);

print "Digite outro número: ";
my $y = chomp(<STDIN>);

my $z = $x + $y;

print "A soma é: ", $z;