sub say { local $\ = "\n"; print(@_ or $_) }
sub IO::Handle::say { my $h = shift; local $\ = "\n"; $h->print(@_ or $_) }