use IO::Handle;

pipe(READER, WRITER);
WRITER->autoflush(1);

if ($pid = fork) {
# if fork returned a PID, this must be the parent
	close READER;	# so the child can use it
	print WRITER "Your message here, call 555-8467, extension $$!";
	close WRITER;
	waitpid($pid, 0);	# let the kid die
} else {
# if $pid is empty, this must be the child
	close WRITER;	# so the parent can use it
	my $line = <READER>;
	print "What does this mean?\n\t>>$line<<\n";
	close READER;	# don't have to be explicit
	exit;
}

##</code><code>##

local *$read;
local *$write;