The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Base;

__DATA__
===
--- (foo) lines reverse reverse join
one
two
three

--- (bar)
one
two
three