$self = bless { youth => { days => [caller] } }; while not $days->{'evil'}->come || $years->draw_nigh( sub { print $self "No pleasure in $_" }; while ( $sun or $light or $moon or $stars ) !~ /darkened/; !or rain(), return( @clouds ); for $day ( <$days> ) { $house->keepers->tremble and $_->bow for grep $_->strong, @men and $_->cease for @grinders if @grinders <= $few and $_->darken for @those_that_look_out_of_windows and $_->shut for @{$streets{'doors'}} and $grinding->sound->{'volume'}-- and $_->rise_up if $bird->voice and $_-- for @{ $music->{'daughters'} } and $_->fear( grep $_->high, @things ) and @way{ @fears }=() and $almond_tree->flourish and @Grasshopper::ISA = ( Burden:: ) and $_->{'desire'}->fail and $man goto $ENV{'HOME'}+0.0 and $_->go_about( @streets ) for @mourners or $silver_cord->loosed or $golden_bowl->broken or $pitcher->broken( @fountain ) or $wheel->broken( @well ) and do { sub { return( $dust => $earth ) } # as it was && return $spirit # to caller ($God) }; }