#!/usr/bin/perl

use POSIX 'setsid';

die "Can not fork" unless defined (my $child = fork);
if($child) {
	print "This is parent process. Exit\n";
	exit 0; # 親が終了する
} 

setsid(); #セッションリーダーになる
open(STDIN, "</dev/null");
open(STDOUT, ">/dev/null");
open(STDERR, ">&STDOUT");
chdir '/';
umask(0); #ファイルモードの作成マスクをリセットする
$ENV{PATH} = "/bin:sbin:/usr/bin:/usr/sbin";

while(1) {
	sleep(1);
}

exit $$