#/usr/bin/perl
$x=50;
$y=500;

$z=($x*$y);
print $z;