#!/usr/local/bin/perl

$otherid = fork();
if ($otherid == 0) {
        # child process
        $otherid = getppid();
}
$| = 1;  # eliminate print buffers
print ("The process id of the other process is
$otherid.\n");
