#!/usr/bin/perl

$skip = 19035437;

while(<>) {
        if(! ($. % 1000000)) {
                printf STDERR "processed line $.\n"
        }
        last if $. == $skip;
}

while(<>) {
        printf STDOUT $_;
}

##</code><code>##

processed line 1000000
processed line 2000000
processed line 3000000
processed line 4000000
processed line 5000000
processed line 6000000
processed line 7000000
processed line 8000000
processed line 9000000
processed line 10000000
processed line 11000000
processed line 12000000
processed line 13000000
processed line 14000000
processed line 15000000
processed line 16000000
processed line 17000000
processed line 18000000
processed line 19000000
Modification of a read-only value attempted at mysplit.pl line 13, <> line 20804003.