package Dinner;
use strict;
use warnings; 

my $self = {};

sub new {
    my ($class) = @_;
    bless $self, $class;
    return $self;
}

sub washhands {
    my ($obj) = @_;
    $obj->{'handsclean'} = 1;
    return 1;
}

sub eatfood {
    my ($obj) = @_;
    if (exists $obj->{'handsclean'}) {
        print "\nYou washed your hands -eat all you want\n";
    } else {
        print "\nYou filthy animal!! Go wash your hands\n";
    }
    return 1;
}

1;