#!/usr/bin/perl

use warnings;
use strict;

$a=0;

chomp($a=<STDIN>);
print $a, "\n";


##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

$x=0;
$y=0;

print "enter first number ";
chomp($x=<STDIN>);

print "enter second number ";
chomp($y=<STDIN>);

print "Product ",$x*$y, "\n";