Using fork in perl
==================

Public domain
********************************************************************************

    #!/usr/bin/perl -w
    $pid=fork;
    if(!$pid)
    {
      print("This is child process");
    }
    else
    {
      print("This is parent process");
    }

********************************************************************************
_BY: Pejman Moghadam_  
_TAG: perl, fork_  
_DATE: 2009-04-25 00:17:00_