# If you awake and see the sunrise
# bathing earth in red and gold,
# As you gaze you'll somehow find
# it brings a washing of the soul.
#!/usr/bin/perl

if (sleep(1) and @earth =($sunrise{red},$sunrise{gold})) {
        @soul = map {&wash(\@soul,$_)} (keys %sunrise,@earth);
}
[download]