#  Vanilla file implementation

open( PIPE, "+<" . $PIPE_NAME )
	|| die "couldn't open pipe";

print PIPE "vanilla!\0";

my $result = <PIPE>;
print "Server said [$result]\n";

foreach (split //, $result) {
	print  "[" . (ord $_) . "]";
}
print "\n";

close PIPE;

##</code><code>##

Server read: [vanilla! { require $path; };
]
[118][97][110][105][108][108][97][33][0][123]
[32][114][101][113][117][105][114][101][32][36]
[112][97][116][104][59][32][125][59][13][13][10]

and...

Server said [{ require $path; };
]
[123][32][114][101][113][117][105][114][101]
[32][36][112][97][116][104][59][32][125][59][13][10]