#  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;