Select Code to Download

my $sitelist_file="<c:\supportweb\content\sitelist.txt"
print $sitelist_file;
__END__
<c:supportwebntentsitelist.txt

my $sitelist_file='<c:\supportweb\content\sitelist.txt';
print $sitelist_file;
__END__
<c:\supportweb\content\sitelist.txt

open DATA, $sitelist_file or die "Cannot open '$sitelist_file': '$!'";

for my $line (@lines){
  $response->write($line);
}