use Getopt::Long qw(:config gnu_getopt);

}
sub showHelp {
    print <<EOF;
Usage: $0 [--once]
Send stats to statsd. The --once flag can be used to send one round
of stats and then exit.
Example:
  \$ $0 --once
EOF
    exit 0;

my $once = 0;
GetOptions("once" => \$once,
           "help" => sub { showHelp() }
    ) or exit 1;

    if ($once) {
        last;
    }

my ($res, $stdout, $stderr) = captureStdoutStderr(60, ("hydra-send-stats"));

my ($res, $stdout, $stderr) = captureStdoutStderr(60, ("hydra-send-stats", "--once"));