#!/my/selfcompiled/bin/perl-5.18.2

use strict;
use warnings;

use IO::File;
use IPC::Open3;

my $reader = IO::File->new();
my $writer = IO::File->new();
my $error  = IO::File->new();
open3($writer, $reader, $error, 'ssh', '-V');
my $ssh_version = <$error>;
chomp($ssh_version);
printf "[%s]\n", $ssh_version;