Select Code to Download

    use GRID::Machine qw(is_operative);
    use Data::Dumper;
...

      }, $p
    ));

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