Utiliser la commande kill :
#!/usr/local/bin/perl use strict; kill(1,@ARGV);
kill permet d'envoyer un signal a un ensemble de pid.
Pour plus d'informations voir la documentation de Perl :