my $sitelist_file="<c:\supportweb\content\sitelist.txt"
open DATA, $sitelist_file;
my @lines=<DATA>;
close DATA;
for each my $line (@lines){
$response->write($line);
}