Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl

...
}

seek(IN, 10, SEEK_SET);                # or whatever