Anybody with dates of the closest event?

#! /usr/bin/hope -w
#$file: angel.mine  script
use strict;
#Keep Going
# become s good child
my $pid = fork();
print $pid,"\n";
while(1) {
 sleep(never);