my $pid;
$pid = fork;
 if ( $pid ) {
  #We are the parent
  print "Successfully forked, I am the parent\n";
 } 
 else {
   if ( $pid == 0 ) {
   #We are the child
   print "Successfully forked, I am the child\n";
   
  }
  else {
   #undef value - no fork happened
   print "Fork failed for some strange reason\n";
   
  } 
 }