my $p = { a => 10 };
print Dumper( $machine->eval(q{
  my $q = shift;
  print $q->{a}."Value of A\n"; # It's not working
  sample->function($q->{a});
}, $p));