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