msgpack-dump

diff --git a/msgpack-dump b/msgpack-dump
new file mode 100755 (executable)
index 0000000..e14cbd0
--- /dev/null
+++ b/msgpack-dump
@@ -0,0 +1,9 @@
+#!/usr/bin/perl -w
+use strict;
+use Data::MessagePack;
+use Data::Dumper;
+$/ = undef;
+$!=0; $_ = <> // die $!;
+my $mp = Data::MessagePack->new();
+my $val = $mp->unpack($_);
+print Dumper($val);