use shapes;

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

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