BEGIN {
   if ($] < 5.010) {
      *say = sub { local $\ = "\n"; print @_ ? @_ : $_ };
   } else {
      require feature;
      feature->import('say');
   }
}