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