Рассмотрим пример практически применимой программы, которая открывает канал в команду who UNIX и подсчитывает, сколько раз регистрировался каждый пользователь. Она вырабатывает примерно общий отчет. Сценарий такого рода может применяться администратором загруженной системы для контро­ля над ее использованием.

Функции open() и close() были немного доработаны с учетом их применения с каналами они предоставляют дополнительную информацию о вызываемом подпро­цессе. При открытии канала функция open() возвращает идентификатор процесса PID команды, выполняемой на другом конце канала. Это - уникальное ненулевое целое число, которое может применяться для управления подпроцессом с помощью сигналов. В программе можно сохранить этот идентификатор процесса переменной или игнорировать его особый смысл и рассматривать значение, воз­вращаемое функцией open(), как логический флажок.

При использовании функции close() для закрытия канала применяются ее дополнительные возможности, которые предусматривают размещение кода заверше­ния подпроцесса в специальной глобальной переменной $?. В отличие от обычно применяемого соглашения Perl, переменная $? принимает нулевое значение в случае успешного выполнения команды и ненулевое - в случае возникновения ошибки. В до­кументе perlvar POD приведена дополнительная информация о кодах завершения.

Еще одной особенностью применения функции close() является то, что при за­крытии канала записи вызов этой функции блокируется до тех пор, пока процесс на кругом конце канала не закончит всю свою работу и не завершится. При закрытии ка­кала чтения до возникновения условия конца файла EOF, программа на другом конце канала получит сигнал PIPE (об этом дальше) при следующей попытке записи на стандартное устройство вывода.