use CGI::Fast;
while (my $r = CGI::Fast->new) {
        open my $stderr_fh, '>', 'some_file';
        open my $stdin_fh, '<', '/dev/null';
        open my $stdout_fh, '>', 'some_other_file';

        my %options = (
                batch_mode => 1,
                timeout => 10,
                kill_ssh_on_timeout => 1,
                default_stdout_discard => 1,
                default_stderr_discard => 1,
                master_stderr_fh => $stderr_fh,
                master_stdout_fh => $stdout_fh,
        );

        my $ssh = Net::OpenSSH->new('test@192.168.0.123', %options);
}