perl シグナルでプロセスを中断と再開する方法

#!/usr/local/bin/perl -w
use strict;
use POSIX qw(SIGTSTP SIGCONT);

sub main
{
	my $pid = fork();

	if ($pid == 0) {
		exec '/usr/X11R6/bin/php', '/tmp/foo.php';
		exit;
	}

	sleep(5);

	kill SIGTSTP , $pid;
	print "stop $pid\n";
	sleep (5);
	print "start $pid\n";
	kill SIGCONT , $pid;

	wait;

	exit (0);
}
& main;

<?php

$fp = fopen("/tmp/foo.log", "a");

for ($i = 0; $i < 300; $i++)
{
	//echo "$i\n";
	fwrite($fp, "$i\n");
	sleep (1);
}
fclose($fp);
?>

perl exec.pl

２つめのターミナルで下記コマンドを実行します。

tail -f /tmp/foo.log

exec.pl がSIGTSTPを送信すると、２つめのターミナルのtailコマンドで監視しているfoo.logが更新されなくなります。
exec.plがsleepから復帰し、phpのコマンドに再開のシグナルを送信すると再び、foo.logが更新されるようになります。

関連
[2008-07-07-1] perl signal SIGCHLDを受け取る