The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -w

BEGIN { unshift @INC, './lib'; }

use strict;
use warnings;
use Linux::Pid;

print "1..2\n";
print "not " if $$ != Linux::Pid::getpid();
print "ok 1\n";
print "not " if getppid() != Linux::Pid::getppid();
print "ok 2\n";