#!perl
use IPC::Open2;

my $command = 'plink -ssh -pw password_here username_here@host_name_here -batch exit';

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



##</code><code>##

perl test.pl
Access denied
3516the output is :