Help for this page

Select Code to Download

Select or download this
```
### In Shoe.pm
package Shoe;
...
}

1;
```

Select or download this

#!/usr/bin/env perl

...
$Rack->Buy("Boot");
$Rack->Buy("Shoe");
$_->wear_out_sole() for $Rack->getcollection();