/usr/share/doc/libnet-openssh-parallel-perl/examples/reboot.pl is in libnet-openssh-parallel-perl 0.12-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | #!/usr/bin/perl
use strict;
use warnings;
use Net::OpenSSH::Parallel;
use Net::OpenSSH::Parallel::Constants qw(OSSH_ON_ERROR_IGNORE);
my $p = Net::OpenSSH::Parallel->new;
$p->add_host('root@172.26.9.122');
$p->all(cmd => 'echo hello');
$p->all(cmd => { on_error => OSSH_ON_ERROR_IGNORE }, 'reboot');
$p->all(cmd => { reconnections => 500 }, 'echo hello again');
$Net::OpenSSH::Parallel::debug = -1;
$p->run;
|