Select Code to Download

# Only ever produces 3 lines
sub print_shape {
...
  print $self->{shape}->{line2}."\n";
  print $self->{shape}->{line3}."\n";
}

# Allows for arbitary number of lines
# (as long as they are sequentially numbered from 1)
...
    eval($em);
  }
}

my $box = [
  '----',
  '|  |',
  '----'
];

sub print_shape {
  my $self=shift;
...
    print "$_\n";
  } 
}