Select Code to Download

package Rectangle;
use Moo;
...
$rect->demo;
print "\n";
$sq->demo;

Demo of Rectangle
height: 2, width: 2
...
height: 4, width: 3
area: 9
height: 3, width: 3