forking doubt

[Saurabh Singhvi]

Hi all,


   my $child = fork ();

   unless ($child) {
       sleep 5;
       print "child\n";
   }

   print "parent\n" if $child;
   print "parent2\n" if $child;


the above code prints the parent lines followed by the child. Now what i
want to do is print the parent
line1 and then the child followed by the parent2 line. So what changes do i
need to do??

thanks
Saurabh