...

binmode STDOUT;
$yellow->Write('gray:/tmp/yellow');
open(FIN,"</tmp/yellow") || die("cannot access file /tmp/yellow\n");
while (sysread FIN, $buffer, 4096) {
  print $buffer;
}
close FIN;

print("\r");
...