$ perl -MO=Deparse,p -ne 'print if $. >= 17 && $. <= 30'
LINE: while (defined($_ = <ARGV>)) {
    print $_ if $. >= 17 and $. <= 30;
}
-e syntax OK