use POSIX;

while(1) {
    sleep(1);
    print "I am running\n";
    my $pid = fork;
    unless($pid)
    {
       while(1) {  sleep(2);
                   print "I am child and I'am running\n";
       }
    }
}