Select Code to Download

package IO::Handle;

...


1;

use Perl6::FH;

...
  # $_ has already been chomp()ed
  # with whatever $/ is right now
}

is_chomped STDIN "";      # paragraph mode
is_chomped STDIN "%%\n";  # fortune mode

is_not_chomped STDIN;

is_chomped ARGV;

while (<>) {
  # $_ is chomped
}