#!/usr/bin/perl

my @goody_bag;

wear("scary costumes");

# Iterate down street
foreach my $house (@street)
{
    knock_on_door($house);
    sleep(60);
    if (door_opened())
    {
        greet();
        while (housekeeper_is_generous())
        {
            push(@goody_bag, get_treat());
        }
    }
    else
    {
        push_through_letterbox("rancid stoat");
    }
}

# We've now covered the whole street, head home and eat goodies
walk(get_route("home", $current_location));

foreach my $yummy_item (@goody_bag)
{
    eat($yummy_item);
}

# Maybe we should have eaten less
set_stomach_status("distinctly icky");

exit(1);


sub greet
{
    shout("TRICK OR TREAT!!!!11!eleven");
}