use Monk;
use Role::Tiny;
…
$karl = Monk->new;
$bill = Monk->new;

Role::Tiny->apply_roles_to_object($karl, qw(Nose));
Role::Tiny->apply_roles_to_object($bill, qw(Cuke));
…