#!/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;
}
#!/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;
}