beginner_2_4.pl

use strict;
use warnings;

my $x1 = <STDIN>;
my $x2 = <STDIN>;
my $y = $x1 * $x2;
print "$y\n";
print $x1*$x2."\n";