#!/usr/bin/perl -l

my $X = "parent";
if (fork() == 0) { # I am the child
   $X = "child";
}
print "$X pid $$";
