I agree with some of the other monks that this approach isn't ideal, but your use of seek and tell is indeed legitimate and valid, not just for Perl but for Unix.