#!/usr/bin/perl
# your code goes here
#!/usr/bin/perl
# your code goes here
use warnings;
use strict;
sub palindrome{
	my $word = $_[0];
	my $length = length $word;
	if ($length <= 1)
	{
		return 1;
	}else{
		my $top_char = substr($word,0,1);
		my $last_char = substr($word,$length-1,1);
		if($top_char == $last_char)
		{
			return palindrome(substr($word,1,$length-2));
		}else{
			return 0;
		}
 
	}
}
print $ARGV[0];
print palindrome($ARGV[0]),"\n";

IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQojIS91c3IvYmluL3BlcmwKIyB5b3VyIGNvZGUgZ29lcyBoZXJlCnVzZSB3YXJuaW5nczsKdXNlIHN0cmljdDsKc3ViIHBhbGluZHJvbWV7CglteSAkd29yZCA9ICRfWzBdOwoJbXkgJGxlbmd0aCA9IGxlbmd0aCAkd29yZDsKCWlmICgkbGVuZ3RoIDw9IDEpCgl7CgkJcmV0dXJuIDE7Cgl9ZWxzZXsKCQlteSAkdG9wX2NoYXIgPSBzdWJzdHIoJHdvcmQsMCwxKTsKCQlteSAkbGFzdF9jaGFyID0gc3Vic3RyKCR3b3JkLCRsZW5ndGgtMSwxKTsKCQlpZigkdG9wX2NoYXIgPT0gJGxhc3RfY2hhcikKCQl7CgkJCXJldHVybiBwYWxpbmRyb21lKHN1YnN0cigkd29yZCwxLCRsZW5ndGgtMikpOwoJCX1lbHNlewoJCQlyZXR1cm4gMDsKCQl9CiAKCX0KfQpwcmludCAkQVJHVlswXTsKcHJpbnQgcGFsaW5kcm9tZSgkQVJHVlswXSksIlxuIjs=

YXJndiBhc2QgZGRk

argv asd ddd