#!/usr/bin/perl -w
$file = 'acs.txt';
$newfile = 'one.txt';
$from_line = 5;
$to_line = 15;

open(F1,"< $file");
@lines = <F1>;
open(F2,"> $newfile");

for($i=$from_line;$i<$to_line;$i++) {
	print F2 $lines[$i-1];
}