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