use strict; 
use warnings;
use Fcntl;
my $file_name='/home/dir/temp/test_me.txt';
open my $fh,'>',$file_name || die "can't open $file_name for writing: $!\n";
my $flags=fcntl $fh,F_GETFL,0 || die "fcntl call failed: $!\n";
print "Flags: $flags\n";
close $fh || die "can't close write handle to $file_name: $!\n";