#! /usr/bin/perl -w

my $a = 'sub { $name = shift; return substr($name, 0, 1); }';
my $b = eval $a ;
print &$b("wiredrat");