The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

=head1 SYNOPSIS

 $0 [ range .. ] [ fping options .. ]

=cut
use strict;
use warnings;

use Hermes;
use Vulcan::OptConf;

$| ++;

my ( $range, @node ) = Hermes->new( Vulcan::OptConf->load()->dump( 'range' ) );

push @node, shift while @ARGV && $ARGV[0] !~ /^-/;
map { push @ARGV, $range->load( $_ )->list() } @node;
system( 'fping', @ARGV );

exit 0;