{   my $sendtext = $_[1] ;  # new
    my $chan = $ssh2->channel() or $ssh2->die_with_error ;
    $chan->blocking(1) ;   #new
    $chan->exec("($_[0]) 2>&1") ;
    my $write = $chan->write($sendtext) ;  #new
    $ssh2->die_with_error() unless $write ;  #new
    if ($write != length($sendtext))   #new
    {   die "Only $write bytes were sent!\n" ; }   #new
    my $out = "";
    while (!$chan->eof)
    {   my $buffer = "";
        if (not defined ($chan->read($buffer, 100)))
        {   $ssh2->die_with_error() ; }
        $out .= $buffer ;
    }

##</code><code>##

~$ cat sshfile
This is a test