#! perl -slw use strict; my @pids; $SIG{'INT'} = sub { kill 'INT', @pids; }; push @pids, system 1, $_ for qw[ ctrlman.pl pidman.pl progman.pl webman.pl ]; while( 1 ) { ## do stuff; }