#!/usr/bin/perl

use strict;
use warnings;

my $Status="\033[32mSTATUS\033[0m";
my $ms = 6;
my $count = 42;

format STDOUT =
^<<<<< ^<<<<<   @*
$ms, $count, $Status
.
write STDOUT;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $Status="STATUS";
my $ms = 6;
my $count = 42;

my $START_COLOR = "\033[32m";
my $CHANGE_COLOR = "\033[36m";
my $END_COLOR = "\033[0m";

format STDOUT =
^<<<<< @* ^<<<<<< @* ^<<<<<<<<<<<<< @*
$ms, $START_COLOR, $count, $CHANGE_COLOR, $Status, $END_COLOR
.
write STDOUT;