Just wondering...

# hmm, bees, this is how much I care
open OUT,'> /dev/null' or die "Sorry, can't write to oblivion\n";
for my $thing (@objects) {
  print OUT $thing->contects if $thing->type eq 'bee';
}
close OUT; # back to finite land
# cheese, ok then
use Me;
my $me = new Me;
for my $thing (@objects) {
  $me->eat_all($thing->contents) if $thing->type =~ /cheese/i;
}
[download]