sub PRINT {
  ...
  my $sel = select("FOOBAR::STDOUT") ;
  my $autoflush_val = $| ;
  select($sel) ;
  ...
}