use IO::Handle;
$kidfh->autoflush(1);