Or if you don't want to remember to write a \r next to an \n everywhere, you can apply the :crlf IO layer:

binmode STDOUT, ':crlf';
print "$fan: $fan \n\t";
[download]