use IO::Pipe; 
	 
	$pipe = IO::Pipe->new(); 
	#system("java -jar minecraft_server.jar nogui"); 
	 
	#use strict; 
	use warnings; 
	my $child = fork; 
	#defined $child or die "Can't fork: $!\n"; 
 
	if ($child) 
	{ 
		print "I'm parent ($0): $$\n"; 
		$pipe->reader(); 
		while (true) 
		{ 
			$exists = kill 0, $child; 
			if ($exists) 
			{ 
				print "Child OK: $child\n"; 
			} 
			else 
			{ 
				print "Child Dead\n"; 
			} 
			#print "Tick...\n"; 
			sleep(4); 
		} 
	} 
	else 
	{ 
		print "I'm child ($0): $$\n"; 
		$pipe->writer(); 
		#print $pipe; 
		 
		#exec $^X, 'java -jar minecraft_server.jar nogui'; 
		system("java -jar minecraft_server.jar nogui"); 
	}