open MY_FILE, $filename;
seek MY_FILE, 21, 0;
while (<MY_FILE) {
... do reading schtuff here ...
}