No need to eval the code, for example:

$this -> { _codereference } = sub { return "Do " . shift() . " so.\n";
+ }

# ...

print FH $this -> { _codereference }{ "believe" );
[download]