Select Code to Download

use strict; $|++;

...
  print "sysread() got $num bytes:\n[$buffer]\n";
  $text->insert( 'end', $buffer );
}

use strict; $|++;

...
  print "sysread() got $num bytes:\n[$buffer]\n";
  $text->insert( 'end', $buffer, 'red' );
}

use japh; print;