#! /usr/bin/perl -w
# nagios: +epn
use strict;


my $pid = open my $pipe, "-|";
if (defined($pid)) {
	if ($pid) {
	} else {
		exit(1);
	}
}
else {
	exit(3);
}
wait;

print "OK child has pid $pid\n";
exit(0);
