#!/usr/bin/perl -l

my $cmd = q(perl -e 'chomp(my $ret = <STDIN>); exit $ret+1');

my $pid = open CMD, '|-', $cmd or die $!;

print CMD 98;

close CMD;
print "status from close:   ", $? >> 8;

waitpid $pid, 0;
print "status from waitpid: ", $? >> 8;

__END__
$ ./839409.pl
status from close:   99
status from waitpid: 72057594037927935