use Perl6::Form;

$text = <<EOSOL;
Now is the winter of our discontent
 Made glorious summer by this sun of York;
  And all the clouds that lour'd upon our house
   In the deep bosom of the ocean buried.
Now are our brows bound with victorious wreaths;
 Our bruised arms hung up for monuments;
  Our stern alarums changed to merry meetings,
   Our dreadful marches to delightful measures.
Grim-visaged war hath smooth'd his wrinkled front;
 And now, instead of mounting barded steeds
  To fright the souls of fearful adversaries,
   He capers nimbly in a lady's chamber.
EOSOL

               
print form
	 {single=>'='},
   	 '=   {=""""{*}""""=}   =',
	 'TOP SECRET', "$text", 'EYES ONLY';

print "\n\n\n";

print form
	 {single=>'='},
   	 '=   {=[[[[{*}[[[[[[=}   =',
	 'TOP SECRET', "$text", 'EYES ONLY';