# Original code:
        =42=          my $buf = "";
        =43=          while (<F>) {
        =44=            $buf .= $_;
        =45=            $cache->set($session, [0, $buf]);
        =46=          }
        =47=          $cache->set($session, [1, $buf]);
        =48=          exit 0;

##</code><code>##

                        $cmd="ls -l";
                        my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
                        my $buf = "";
                        while ($stdout) 
                                {
                                        $buf .= $_;
                                        $cache->set($session, [0, $buf]);
                                }
                        $cache->set($session, [1, $buf]);