Select Code to Download

use strict;
use CGI::Pretty;
...
  $response->write($line);
};
print end_html;

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

  Content-Type: text/html; charset=ISO-8859-1