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

use IO::All;

my $stdin = io('-');
my $stdout = io('-');
$stdout->buffer($stdin->buffer);
$stdout->write while $stdin->read;