# Yeah this is very far fetched coding
use Life::Misery;
use Life::Joy;
use Life::Philosophy::Meaning_Of_Life;
use Life::Philosophy::Christ;
$my_life = new Life;
while($my_life->exist)
{
    if($my_life->misery == 1)
    {
      $my_life->find_joy();
    }
    $my_life->use_linux();
    $my_life->serve_God();
    $my_life->spread_joy();
    $my_life->help_others();
}
life_close(\$my_life);
print "He had a full life\n";