#!/usr/bin/perl -w
use strict;
use Dinnerclosure;
my $cleaneater = Dinnerclosure->new();
# comment next line and uncomment the one after it, but it won't wash hands
$cleaneater->{'washhands'}->();
#$cleaneater->{'handsclean'} = 1;
$cleaneater->{'eatfood'}->();
print Dumper $cleaneater;