про fork

[zukko]

#!/usr/bin/perl -w
use warnings;

$rr='0';

if(fork()){
warn("--- start pproc ---\n");
while(1){
warn"* rr=$rr \n";
sleep(2);
}
}else{
for($i=1;$i<50;$i++){
warn" rr=$rr \n";
$rr.=" $i";
sleep(1);
}
}

sleep(20);

__END__
вот програмуля,
родительский процесс как бы наращивает $rr,
а детский процесс отображает $rr, но не так как хотелось бы.

так вот как сделать чтобы $rr была одной и той же для обоих процессов?

ПОМОгИТЕ МНЕ!