use strict;
use warnings;
use open ':locale';

sub print_data
{
my ($name, @f);

format START =
.===================.
|@<<<<<<|           |
$name
|       |           |
.=======.===========.
|@<<<<<<|  @<</@>>  |~~
splice( @f, 0, 3 )
.=======.===========.
.

  binmode STDOUT, ':raw:crlf';
  my $ofh = select(STDOUT);
  $~ = "START";
  $name = 'TAB';
  @f = ('Step2', 0, 4, 'Step3', 4,   4);
  write;
}

print_data;