#!/usr/bin/perl

$skip = 19035437;

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

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