#! /usr/bin/perl
#
# Playing with processes ...

use POSIX qw(setsid);

if ( $pid = fork()){
  print "I am the father..\n";
  print " Child pid : $pid \n";
 
}
else{
  setsid();
  close STDIN  ; #  Inside a web server
  close STDERR ; #  Idem
  close STDOUT ; #  Idem
  print "\nI am the child \n";
  print "I am $$\n";
  $timer= 30 ;
  sleep($timer);
  print "\nWahhh, i am awake after $timer seconds \n";
}

exit 0 ;