open I, '<', undef or die $!;;

print fileno( I );;
3
print eof(I);;
1