$rec =  $rec,"\r";
print $OUTPUT $rec,"\n";