use IPC::Open3 qw( open3 );

my @command = qw( plink -ssh -pw passwd user@host -batch exit );

open3(\*CIN, \*COUT, \*COUT, @command);
close CIN;
    
my $xs = <COUT>;
print "the output is :".$xs;
close COUT;