in reply to Using fcntl function for the first time

Either use: 
use strict; 
use warnings;
use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);

my $file_name='/tmp/test_me.txt';

open my $fh,'>',$file_name || die "can't open $file_name for writing: 
+$!\n";
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";

[download]
or capture your packed data into a variable: 
my $flags=fcntl(FH,F_GETFL,$_) || die "fcntl call failed: $!\n";

[download]

Replies are listed 'Best First'.
Re^2: Using fcntl function for the first time
by runrig (Abbot) on Mar 11, 2015 at 22:36 UTC 
    open my $fh,'>',$file_name || die "can't open $file_name for writing: 
+$!\n";

    [download]
    No..either:
    open my $fh,'>',$file_name or die "can't open $file_name for writing: 
+$!\n";

    [download]
    Or:
    open(my $fh,'>',$file_name) || die "can't open $file_name for writing:
+ $!\n";

    [download]
    And similar for your other uses of the "||" operator.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom