Help for this page
### In Shoe.pm package Shoe; ... } 1;
#!/usr/bin/env perl ... $Rack->Buy("Boot"); $Rack->Buy("Shoe"); $_->wear_out_sole() for $Rack->getcollection();