Select Code to Download

### In Shoe.pm
package Shoe;
...
}

1;

### In Boot.pm
package Boot;
...
}

1;

#!/usr/bin/env perl

...

my $b2 = Boot->new();
$b2->wear_out_sole();