home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 1.x / plum11.lzh / plum11 / fork.plm < prev    next >
Text File  |  1997-08-28  |  112b  |  11 lines
  1. package main;
  2.  
  3. exit if fork;
  4. if (open(PID, '>plum.pid')) {
  5.   print PID $$, "\n";
  6.   close(PID);
  7. }
  8.  
  9. $_ = 'main';
  10.  
  11.