while(my $inp = <DATA>) {
 print "$inp\n" if($. >1 && $. <7);
}