my @links = ( $firstlink,
              map { pagelink($_) } (@pages),
              $lastlink );
shift @links if $. == 1;
pop @links if $. == $total_number_of_lines;
print join('|', @links);