while (1) {
    # Loop other processing here.
    load_file($this_file);
    reap_children();
}


sub load_file() {
    my $childProcess;

    $childProcess = fork();

    unless($childProcess) {
        # Child process so lets exec the loader.
        exec("loader $this_file");
        exit 0;
    }
}

sub reap_children() {
    my $kid = 1;

    while ($kid > 0) {
        $kid = waitpid(-1, 1);
    }
}