my $f;
open($f,'<',"bigfile") or die "Could not open file\n";

my $i;
while ($i++<1000000) {
  seek($f,10,0);
  seek($f,3000,0);
}

##</code><code>##


my $f;
open($f,'<',"bigfile") or die "Could not open file\n";

my $i;
my $g;
while ($i++<1000000) {
  seek($f,10,0);
  $g= <$f>;
  seek($f,3000,0);
}

print length $g,"\n";