sub textcolor ($$$);

print textcolor (RESET, RED, BLACK),
      'In color',
      textcolor (RESET, WHITE, BLACK),
      "\n";

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