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

no indirect ":fatal";
my $x;
if ($x) {
my $y = qq{abcdef
        @{[sort $x
 ->new]}
 };
}
1;