print FH $foo if *{$foo}{IO};