#!/usr/bin/perl

use strict;

my $LOGFILE = *STDOUT;

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

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