http://qs321.pair.com?node_id=648087

grashoper has asked for the wisdom of the Perl Monks concerning the following question:

I can't figure why this isn't working, what am I doing wrong?
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); }