I am a PERL novice but have this example script that connects to a news service and downloads XML data through a TCP port. The script is supposed to run continuously monitoring the xml as it comes in throughout the day. But currently after each bit of xml comes across the script stops and kicks me back out to a command prompt. (I'm using activeperl on Windows but I doubt that matters). How do I get it to run continuously? Below is the end of the script. I'll post the entire 75 line file if you want but I imagine the problem is somewhere in these few lines. I tried commenting out the last three lines but that had no effect.
## receive each line of content
print LOG $data;
last if $data =~ m,</message>,i;