#!/usr/bin/perl

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