#!/usr/bin/perl -w
use strict;
use Dinner;

my $dirtyeater = Dinner->new();
# I don't want to wash hands, I will just set the flag directly
# $dirtyeater->washhands;
$dirtyeater->{'handsclean'} = 1;
$dirtyeater->eatfood;