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

    my $machine = GRID::Machine->new(host => 'user@remote.machine.domain');

    my $p = { name => 'Peter', familyname => [ 'Smith', 'Garcia'], age => 31 };

    print Dumper($machine->eval(q{
      my $q = shift;

      $q->{familyname}

      }, $p
    ));

##</code><code>##

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));