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" );