$comment =~ s/(\r\n|\n\r)/<BR>/g;
$comment =~ s/(\n|\r)/<BR>/g;
[download]

will catch the fact that not all systems handle CR/LF pairs the same.

--Chris