# in a loop after appropriate open
$bytes = sysread($self->{FH},$self->{buffer},1024);
print tell($self->{FH}),"\n";