#!/usr/bin/env perl

use strict;
use warnings;

use Boot;

my $s = Shoe->new();
$s->wear_out_sole();

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

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