my $warnline= $tty->newcode (
   [-foreground => 'red'], # parameters for Tk's configure
   'line' #scope
   );
# later...
print "${warnline}Houston, we have a problem.\n";