use Perl6::Form 'drill';

my @data = (
	{name=>'Smith', rank=>'PFC', num=>12345 },
	{name=>'Yeun',  rank=>'Corporal', num=>34521 },
	{name=>'Patton', rank=>'General', num=>00012 },
);

print form
	'      Rank Name         Serial Number',
	'{]]]]]]]]} {[[[[[[[[[}     {IIIII}',
	drill @data, [], [qw{rank name num}];

print "\n\n";

print form
	'      Rank Name         Serial Number',
	{under=>"="},
	'{]]]]]]]]} {[[[[[[[[[}     {IIIII}',
	drill @data, [], [qw{rank name num}];

print "\n\n";