#!/usr/bin/perl

print "\nThis program calculate the product of three numbers.\n\n";

print "Input first number: ";
$x = <STDIN>;
print"\n";
chomp $x;

print "Input second number: ";
$y = <STDIN>;
print"\n";
chomp $y;

print "Input third number: ";
$z = <STDIN>;
print"\n";
chomp $z;

$result = $x * $y * $z;
print "The product is equally $result.\n";