#!/usr/bin/perl
# Palindrome.pl

if((chomp($x=<STDIN>)) eq ($y=reverse($x)))
{
  print "Palindrome";
}#not showing appropriate result. also I am not able watch the expression $x and $y in debug mode.