our qw( $innocence $future);

no warnings;

eval  {
        while ( accept(PASSENGER,FATE)  ) {
                warn caller(),@goodbyes;
                tell(FAMILY); last;
        }

        die  caller;
}

$family = pack('b@x',@belongings) if $@=~/family/;

sleep;
no use;


GRIEF: while ( accept(LOSS,LIFE) ){

    $together = join("loss",@people);
    bless $life;
} continue {
        
}

undef $innocence;

alarm($nation);


$future = undef;

$together = wait();