#!/usr/bin/perl

print "Enter Anything: ";
chomp($string = );
$string = reverse $string;
print "$string\n";