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

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

    format START =
.===================.
|@<<<<<<|           |
$name
|       |           |
.=======.===========.
|@<<<<<<|  @<</@>>  |~~
shift(@f) || '', shift(@f) || '', shift(@f) || ''
.=======.===========.
.

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

print_data;

##</code><code>##

 0:01 >perl 2079_SoPW.pl
.===================.
|TAB    |           |
|       |           |
.=======.===========.
|Step2  |     /  4  |
|Step3  |  4  /  4  |
.=======.===========.

 0:01 >