#!/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);