usage: $io->seek(POS, WHENCE) at /usr/lib/perl5/site_perl/5.8.7/File/Binary.pm line 166