sub say {
    local $\ = "\n";
    print @_ ? @_ : $_;
}