The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl6

use v6;

=head1 Writing a Unix-Style Filter Program

=cut


# XXX currently it seems you cannot eliminate the $_ from while expression

while $_ = =<> {
    print;
}