Assuming a suitably set up Cup:

$cup->bite;
&Reeses::Cup::bite($cup);
bite $cup until $cup->is_gone;
[download]

A variation on "There's More Than One Way to Do It" which in my opinion is a great answer in of itself.