$ssh->waitfor('COR>',2) or die "Where is prompt";
$ssh->send("\x1D");
$ssh->waitfor('telnet>',2) or die "Where is prompt";	
$ssh->send("q");
$ssh->waitfor('>',2) or die "Where is prompt";	
$ssh->send("touch /home/fworks/the.file");
$ssh->waitfor('>',2) or die "Where is prompt";
my $line;
while ( defined ($line = $ssh->read_all()) ) {
          $ssh->send("bogus");
       print $line . "\n";
         }