Select Code to Download

sub textcolor ($$$);

...
  my ($attr, $fg, $bg) = @_;
  sprintf "\e[%d;%d;%dm", $attr, $fg + 30, $bg + 40;
}