1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu # Write a program that prompts for and reads two numbers (on separate lines of
 4 ffd9a51f 2023-08-04 jrmu # input) and prints out the product of the two numbers multiplied together.
 5 ffd9a51f 2023-08-04 jrmu 
 6 ffd9a51f 2023-08-04 jrmu use warnings;
 7 ffd9a51f 2023-08-04 jrmu use strict;
 8 ffd9a51f 2023-08-04 jrmu use utf8;
 9 ffd9a51f 2023-08-04 jrmu 
10 ffd9a51f 2023-08-04 jrmu print "x = ";
11 ffd9a51f 2023-08-04 jrmu chomp(my $x = <STDIN>);
12 ffd9a51f 2023-08-04 jrmu print "y = ";
13 ffd9a51f 2023-08-04 jrmu chomp(my $y = <STDIN>);
14 ffd9a51f 2023-08-04 jrmu 
15 ffd9a51f 2023-08-04 jrmu print "product of x*y = " . $x * $y . "\n";