my $err = $@;

unless ($err and $err =~ /^Len plus byte > 256/) {
  print "not ";
}
print "ok 7\n";