insertion_script < TSV.file > log.file

##</code><code>##

tail +N TSV.file | insertion_script >> log.file

##</code><code>##

#!/usr/bin/perl

if ( @ARGV and $ARGV[0] =~ /^+(\d+)/ ) {
    $bgn = $1;
    shift;
}
while (<>) {
    print if $. >= $bgn;
}