in reply to Trouble getting started with Perl OO

It seems that your are not printing the entire box, just line 1. Try
sub print_shape {
    
   my $self = shift;      
   print $self->{shape}{line1} , "\n",
         $self->{shape}{line2} , "\n",
         $self->{shape}{line3} , "\n";   

}

[download]

PJ
use strict; use warnings; use diagnostics;

In Section Seekers of Perl Wisdom