#!/usr/local/bin/perl -w

$pid = getppid;
print STDOUT ("pid=$pid\n")