#!/usr/bin/perl
use LifeMission::Live;
use File::Find;

@Life::ISA = qw(Short_Journey);
do {
  find(\&your_call, @in_life) and live $it;
}
[download]