use strict;
use CGI::Pretty;
use Perl6::Slurp;
print header(),
      start_html(-title=>'My Lines');
foreach (split "\n", slurp '<c:\supportweb\content\sitelist.txt'){
  $response->write($_)}
print end_html;