#!/usr/bin/perl
$| = 1;
$x = 0;

$pid1 = fork;
unless ($pid1)
{
sleep (3);
$x = 1;
exit;
};

while ($x == 0)
{
  print ".";
  select(undef, undef, undef, 0.02);
}