#local $| = 1;
#$| = 0;
#$|++;

#use constant {OUTPUT_AUTOFLUSH_BUFFERED  =>0,
 #             OUTPUT_AUTOFLUSH_UNBUFFERED=>1};
#$| = OUTPUT_AUTOFLUSH_UNBUFFERED;

#use IO::Handle;
#STDERR->autoflush(1);
#STDOUT->autoflush(1);