open $fh, '<', 'junk.dat';;

print $fh, $fh + 1;;
GLOB(0x3d39d90) 64200081