use Perl6::FH;

is_chomped STDIN;
while (<STDIN>) {
  # $_ has already been chomp()ed
  # with whatever $/ is right now
}