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

use t::TestC tests => 2;

no_diff;
pass 'It works';

run_is();

sub upper { uc }

__DATA__
=== First
--- x upper
foo
--- y
FOO