my $val;
my $statement = "\$val = $invoke";
warn "EVAL:\n $statement\n" if (qw/DEBUG/);
eval $statement;