#!/usr/bin/perl


my $LOGFILE;

sub logme{
    my $message = shift();
    print $LOGFILE $message;
}

if(fork){ # Parent
    open(PARENT,"> /var/tmp/parent.log") or die $!;
    my $oldh = select(PARENT); $| = 1; select($oldh);
    $LOGFILE = *PARENT;
    while(1){
        logme("Test Parent\n");
        sleep(2);
    }
}else{#Child
    open(CHILD,"> /var/tmp/child.log") or die $!;
    my $oldh = select(CHILD); $| = 1; select($oldh);
    $LOGFILE = *CHILD;
    while(1){
        logme("Test Child\n");
        sleep(2);
    }
}