*CORE::GLOBAL::say = sub { print @_, $/ };