Dump file handle number in perl

Question

Can we dump value of file handle number in perl.

For example when I write function(STDOUT) it should gives o/p 1.

I tried

my $fh = \*STDOUT;
print Dumper $fh

it prints $VAR1 = \*::STDOUT

Thanks, Ravi

Answer 1

You can use fileno():

print fileno($fh);