use shapes;

my %box;
$box{line1} =  ' ---';
$box{line2} =  '|    |';
$box{line3} =  ' ---';

my $box = shapes->new(shape => %box);

exit();