my $name = 'wapoor';
my $eman = reverse_by_c($name);

print "$name, $eman\n";

use Inline C => qq[

  SV* reverse_by_c(SV *pname)
 {
  SV* retval;
  STRLEN len, i;
  char *eman, *name = SvPV(pname, len);
 
  New(0, eman, len, char);
  for(i=0; i<len; i++) eman[i] = name[len-i-1];
  eman[len] = '\\0';

  retval = newSVpv(eman, len);
  Safefree(eman);
 
  return retval;
 }
];