----------------------------------------------------
#!/usr/bin/perl -w
# print_line-v1 - linear style

$i=1;
while ($i<=10)
{
$file=("temp".$i);
$dfile=("temp".$i.".txt");
open($file,">>$dfile")  || die "Can not open $dfile: $!";
#print("$file \n");
#print("$dfile \n");
$i++;
}

open(HOSTCOUNT,"$ARGV[0]");
@hosts=<HOSTCOUNT>;
$count=@hosts;
$line_number = ($count / 10);
$line_number = int($line_number);


@ARGV == 1 or die "usage: print_line FILENAME line_number\n";
($filename) = @ARGV;
open(HOSTS, "< $filename") or die "Can't open $filename for reading: $!\n";

while (<HOSTS>) {
   	$line = $_;
	$j=$line_number+1;
    	last if $. == $j;
	print temp1 ("$. $line");   	
}
last if $. == $line_number+2;
print temp1 ("$. $line");  

while (<HOSTS>) {
	$line_number2=($line_number+$line_number+1);
	$line = $_;
    	last if $. == $line_number2;
	print temp2 ("$. $line");
}

last if $. == $line_number2+1;
print temp2 ("$. $line"); 

while (<HOSTS>) {
	$line_number3=($line_number2+$line_number+1);
	$line = $_;
    	last if $. == $line_number3;
	print temp3 ("$. $line");
}
last if $. == $line_number3+1;
print temp3 ("$. $line"); 

while (<HOSTS>) {
	$line_number4=($line_number3+$line_number+1);
	$line = $_;
    	last if $. == $line_number4;
	print temp4 ("$. $line");
}
last if $. == $line_number4+1;
print temp4 ("$. $line"); 


while (<HOSTS>) {
	$line_number5=($line_number4+$line_number+1);
	$line = $_;
    	last if $. == $line_number5;
	print temp5 ("$. $line");
}
last if $. == $line_number5+1;
print temp5 ("$. $line"); 


while (<HOSTS>) {
	$line_number6=($line_number5+$line_number+1);
	$line = $_;
    	last if $. == $line_number6;
	print temp6 ("$. $line");
}
last if $. == $line_number6+1;
print temp6 ("$. $line"); 


while (<HOSTS>) {
	$line_number7=($line_number6+$line_number+1);
	$line = $_;
    	last if $. == $line_number7;
	print temp7 ("$. $line");
}
last if $. == $line_number7+1;
print temp7 ("$. $line"); 


while (<HOSTS>) {
	$line_number8=($line_number7+$line_number+1);
	$line = $_;
    	last if $. == $line_number8;
	print temp8 ("$. $line");
}
last if $. == $line_number8+1;
print temp8 ("$. $line"); 


while (<HOSTS>) {
	$line_number9=($line_number8+$line_number+1);
	$line = $_;
    	last if $. == $line_number9;
	print temp9 ("$. $line");
}
last if $. == $line_number9+1;
print temp9 ("$. $line"); 


while (<HOSTS>) {
	$line_number10=($line_number9+$line_number)+1;
	$line = $_;
    	last if $. == $line_number10;
	print temp10 ("$. $line");
}
last if $. == $line_number10+1;
print temp10 ("$. $line"); 

----------------------------------------------------