$s1_cli->cmd(
	Command  => "/path/to/pre-loader.pl arg1 arg2 2>&1",
	Blocking => 0
);
$s1_cli->poll(
	Poll_code => sub {
		$output = ($s1_cli->cmd_poll)[1];
		print $output if length $output
	}
);