use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);