#!./perl -w BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } use Text::Wrap qw(&wrap); @tests = (split(/\nEND\n/s, <