use strict;
use Perl6::Form;

my( $name, $age ) = ( "Fred", 23 );

print join( " "x9, 0..7 ), "\n", "0123456789"x7, "012\n";
print form
  "{<{50}<}|{|||} ",
    $name,     $age;

exit 0;