msgpack-dump

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use Data::MessagePack;
   4 use Data::Dumper;
   5 $Data::Dumper::Sortkeys=1;
   6 $/ = undef;
   7 $!=0; $_ = <> // die $!;
   8 my $mp = Data::MessagePack->new();
   9 my $val = $mp->unpack($_);
  10 print Dumper($val);