http://www.perlmonks.org?node_id=49429


in reply to (Ovid - Genesis) Re(2): If God wrote a Perl script
in thread If God wrote a Perl script

Hrmm...one addition:

DAY_7 : {
 sleep while 1;
}

DAY_8_AND_BEYOND: {
  if (time==(60*60*24*365*1966*-1)) {
    ## (This version of time is quite accurate)
    if (fork) {
      &Jesus;
      exit;
    }

  &END_OF_DAYS if $REVELATIONS and $SIGNS>=7;

  redo DAY_8_AND_BEYOND;
}

[download]

In Section Meditations