#!/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 @debug = (1234, 0);

my @MACHINE_NAMES = split /\s+/, $ENV{MACHINES};
my $i = 0;
my @m = map { GRID::Machine->new(host => $_, wait => 1,) } @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->do_something(args => \@args);

print Dumper($r);