#!/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";