Select Code to Download

use v5.10;
use strict;
...

# Were Alice and Bob employees?
$eve->payOtherEmployees($alice, $bob, $carol, $dave);

package Person;

...
}

1;

package Person;

...
}

1;