下の動かすとtell(IN)の戻りは10になるものだと思っていたのですが
infoseek、tok2、uuhpのレン鯖では0になり、まいっちんぐです。
自分では確認していないのですがniftyも0になるらしいです。
ほかに0になる環境のやついますか？

#!/usr/local/bin/perl

print "Content-Type: text/html\n\n";

# 検証用の 10 バイトの test.dat を作成
if (open OUT, '>test.dat') {
print OUT '0123456789';
close OUT;
} else {
print $!;
}

if (open IN, '+>>test.dat') { # eof(IN)が1のはず
print "os:$^O<br>\n";
print "perlver:$]<br>\n";
print 'tell():', tell IN;
close IN;
} else {
print $!;
}