Select Code to Download

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

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