{
  no strict qw(refs subs);
  print { $OK ? STDOUT : STDERR } "stuff\n";
}