Help for this page

Select Code to Download

Select or download this

while(<DATA>)
{
...
        seek(DATA,$file_position,SEEK_SET);
    }
}