Select Code to Download

sub new {
    my ( $invocant, %shape ) = @_; # Stash all params into shape
...
        };
    return bless $self, $class;
}

my $box = shapes->new(shape => %box);
$box->print_shape(); # Do som real work

sub new {
    my ( $invocant, @lines ) = @_; # Take the lines in orden
...
      print $lines, "\n";
   }
}