001 use IO::Handle; 002 STDOUT->autoflush;