my $command = 'link -ssh -pw password_here user_name@host -batch';

    $pid= open3(\*CIN, \*COUT, \*COUT, $command); 

    print CIN "ls\n";
    print CIN "exit\n";
    close CIN;

    my @xs = <COUT>;
    
    foreach $x(@xs)
    {
        print "\noutput:".$x."\n";
    }
    

    close COUT;

    waitpid( $pid, 0 );