Select Code to Download

use strict; 
use warnings;
...
my $flags=fcntl $fh,F_GETFL,O_NONBLOCK || die "fcntl call failed: $!\n
+";
print "Flags: $flags\n";
close $fh || die "can't close write handle to $file_name: $!\n";

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