diff --git a/perl/t/14_invalid_data.t b/perl/t/14_invalid_data.t
new file mode 100755
index 0000000..f534485
--- /dev/null
+++ b/perl/t/14_invalid_data.t
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Data::MessagePack;
+use Test::More;
+use t::Util;
+
+my $nil = Data::MessagePack->pack(undef);
+
+my @data = do 't/data.pl';
+while(my($dump, $data) = splice @data, 0, 2) {
+    my $s = Data::MessagePack->pack($data);
+    eval {
+        Data::MessagePack->unpack($s . $nil);
+    };
+    like $@, qr/extra bytes/, "dump $dump";
+}
+
+done_testing;