Select Code to Download

sub say {
    @_ or croak 'usage: $io->say(ARGS)';
...
    local $\ = "\n";
    print $this @_;
}