RosettaCodeData/Task/Remove-lines-from-a-file/Perl/remove-lines-from-a-file-1.pl

#!/usr/bin/perl -n -s -i
print unless $. >= $from && $. <= $to;