use strict;

my($first,$second,$result);

BEGIN:
print "Input first number (of two) for addition.\n";
$first = <STDIN>;
chop($first);

print "Input second number.\n";
$second = <STDIN>;
chop($second);

$result = $first + $second;
print "$first \+ $second \= $result\n\n\n";

goto BEGIN;