Factorial By Perl

$x=<>;
chop($x);
if ($x>1)
{$s=1;
for($i=1;$i<=$x;$i++)
{$s*=$i;}
print("Factorial for $x = $s");
}
else
{print("Wrong Entry");
}