The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use TestML -run, -bridge => 't::Bridge';

__DATA__

%TestML 1.0

Title = "Ingy's Test";
Plan = 4;

*foo == *bar;
*bar == *foo;

=== Foo for thought
--- foo: O HAI
--- bar: O HAI

=== Bar the door
--- bar
O
HAI
--- foo
O
HAI