not a haiku, but one takes inspiration where it's found.

package baby;
require NewShoes qw (pair);
return $empty_handed if $snake_eyes
[download]