sub $newReesesMoment {
    my $treat=shift;
    my $self={
        HUNGRY => 1,
        SKINCONDITION => 'fair',
        MILKRESERVES =>    'good',
    };
    bless($self,ThisTreatGodMakeItPure);
    return $self;
}

$me=ReesesCupFunction->newReesesMoment();
if $me->{HUNGRY} {
    unpack($wrapperType,$package);
    open(MOUTH, "<+/dev/digestion");
    recv($currentReeses, $contentsOfTongue);
    print MOUTH $contentsOfTongue;
    glob $swallow;
    require MilkGlass qw(Lift Tilt Drink SetDown);
    close(MOUTH);
    $numberOfReesesConsumed++;
}

if ($numberOfReesesConsumed > 35) {
    $me->{SKINCONDITION}='acne';
}

$me->VerifyMilkReserves();
if ($package==undef) {
    warn $spouse;
} else {
    sin($more);
}
[download]

Okay, it isn't entirely functional, but that ceased to become my priority. :) .:. Ioa Aqualine Petra'ka