print"Enter a number: ";
$n=<STDIN>;

$original=$n;
$reverse=0;

while($n>0)
{
$rem=$n%10;
$reverse=($reverse*10)+$rem;
$n=int($n/10);
}


if($original==$reverse)
{
print "$original is palindrome\n";
}
else
{
print "$original is not palindrome\n";
}