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