1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use Perl6::Form;
my $name = 'Damian';
my $age = 39;
my $ID = '000666';
my $comments = <<'END_COMMENT';
Do not feed after midnight.
Do not expose to "stupid" ideas.
Do not allow subject to talk for "as long as he likes".
END_COMMENT
print form
' =================================== ',
'| NAME | AGE | ID NUMBER |',
'|----------+------------+-----------|',
'| {<<<<<<} | {||||||||} | {>>>>>>>} |',
$name, $age, $ID,
'|===================================|',
'| COMMENTS |',
'|-----------------------------------|',
'| {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[} |',
$comments,
' =================================== ',
;
|
