return sub{
   my ($code) = ($var);
   my $estr = "print \"eval:    '\$code'\n\"";
   eval $estr;
}