#!/bin/perl
# File: fnames

$parent_var = "hello";

if (fork == 0) {
   print "Child: $parent_var\n";
   $parent_var = "bye";
   print "Child: $parent_var\n";
   exec("enames") || die "Can't exec enames: $!\n";
}
print "Parent: $parent_var\n";
