#!/usr/bin/perl

@ARGV == 2 or die "Usage: $0 client-stream-file server-stream-file\n";

use Dumpvalue;
use Net::Knuddels;

sub slurp($) {
   local $/;
   open my $fh, "<", $_[0]
      or die "$_[0]: $!";
   <$fh>
}

sub decode {
   my $r = new Net::Knuddels::Receiver;

   $r->register (ALL => sub {
      print "---\n";
      Dumpvalue->new (compactDump => 1, veryCompact => 1)->dumpValue ([@_]);
   });

   $r->feed_data ($_[0]);
}

print "\n\nCLIENT\n";
decode substr +(slurp $ARGV[0]), 1;
print "\n\nSERVER\n";
decode slurp $ARGV[1];