Select Code to Download

my Dog $spot; # new Dog

my Dog $dog = $spot; # oops - create a Dog just to destroy it

my Object $soldier : name rank serial_no;

$soldier->name( "Damian" );