Hi. I think you should be escaping the " not the = like this:

print STDOUT "<FONT COLOR=\"red\"> $data </FONT><P>";
[download]

either that, or you use single quotes:

print STDOUT "<FONT COLOR='red'> $data </FONT><P>";
[download]

cheers :-)