Select Code to Download

package FOO::Soldier;

...
     Safefree(soldier);
}

package MyPackage;
use warnings;
...
           $obj->get_name, " is a ", 
           $obj->get_rank, "\n";
}

11111) Benjamin is a Private
22222) Sanders is a Colonel
...
Destroy called
Destroy called
Destroy called