Select Code to Download

$s1_cli->cmd(
    Command  => "/path/to/pre-loader.pl arg1 arg2 2>&1",
...
    ($ok, $output) = $s1_cli->cmd_poll;
    print $output if length $output;
} until $ok;

$s1_cli->cmd(
    Command  => "/path/to/pre-loader.pl arg1 arg2 2>&1",
...
        print $output if length $output
    }
);