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;


##</code><code>##

perl -w .\TryFormat.pl
Not enough format arguments at .\TryFormat.pl line 16.
Not enough format arguments at .\TryFormat.pl line 16.
Not enough format arguments at .\TryFormat.pl line 16.
.===================.
|TAB    |           |
|       |           |
.=======.===========.
|Step2  |  0  /  4  |
|Step3  |  4  /  4  |
.=======.===========.