#!/usr/bin/perl


my $LOGFILE;

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

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