#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use IO::Select;
use GRID::Machine;
use GRID::Machine::Group;
my @secs = (2, 1, 4, 3, 7, 5, 1, 8..100);
my @MACHINE_NAMES = split /\s+/, $ENV{MACHINES};
my @m = map { GRID::Machine->new(host => $_) } @MACHINE_NAMES;
my $group = GRID::Machine::Group->new(cluster => \@m );
my @r = $group->sub(do_something => q{
my $arg = shift;
sleep $arg;
SERVER->host().":$arg"
});
my @args = map { [ $secs[$_] ] } 0..2*$#MACHINE_NAMES;
my $r = $group->call(do_something => args => \@args);
print Dumper($r);