#!/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;