my $first_line_to_show = 427;

open VIEWFILE, "< $path" or die "Can't open $path: $!<br>\n";

while( my $v_file = <VIEWFILE>) { 
  next if $. < $first_line_to_show - 1;
  last if $. >= $first_line_to_show + 100;

  print "<div  STYLE=\"font-family:  8pt Courier, 'Courier New', monospace; font-size: .6em;\">$v_file</div><br>";
}

close VIEWFILE;