sub count_lines {
    $lines = 0;
    open(FILE, $_[0]) || die "Error opening the file!";
    while(<FILE>) {
        $lines += ($_ =~ tr/\n//);
    }
    print "<center>$lines line(s) in [$filepointer].</center><br><br>\n";
    close (FILE);
}
 
sub breakup_lines {
    open(FILE, $_[0]) || die "Error opening the file!";
    &amp;amp;init_vars;
    while(<FILE>) {
	$newlength = 0;
        $cmax = 0;
	push @list, (split /\|/);
	$count++;
        $length = @list;
        $newlength = $length - $oldlength;
        #print "length of line: ",$newlength,"<br>";
        #print "count: ",$count,"<br>";
        $cmax = $length;
        $oldlength = $length;
        #print "list array: ",@list;
	#if ($show{'news'} == 1) {
	&amp;amp;print_news;
	#}
    }
    close (FILE);
}
 
sub init_vars {
    $count = 0;
    $next = 0;
    $dolines = 0;
    $oldlength = 0;
}
 
1;