my $flags=fcntl $fh,F_GETFL, (0||die "fcntl call failed: $!\n");