open my $fh1, '<', '/tmp/foo' or die $!;
open my $fh2, '<', '/tmp/bar' or die $!;
print "fh1: ", fileno($fh1), "\n";
print "fh2: ", fileno($fh2), "\n";
__END__
fh1: 3
fh2: 4