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

use lib 'lib';
use IO::All;

my @stuff = qw(one two three);
$stuff[1] .= "xxx\n";

io('-')->println(@stuff);