#!/usr/bin/perl --
use strict;
use warnings;
use diagnostics;
use Perl6::Form qw/ form /;

print form 
    { page => { width  => ( 44 + 1), } },
    "{<<{20}<<}|{>>>>>}", 
    "Int for Zero Pad", {lfill => '0',} ,  3 ,
    "{<<{20}<<}|{]]].[[}", 
    "Float for Zero Pad", 3.2,
    "{<<{20}<<}|{]]].[[0}", 
    "Float for Zero Pad", 3.2,
    "{<<{20}<<}|{0]]].[[0}", 
    "Float for Zero Pad", 3.2,
;;;;;
__END__
Int for Zero Pad    |0000003
Float for Zero Pad  |   3.2
Float for Zero Pad  |   3.2000
Float for Zero Pad  |00003.2000