print $self "Date: ", time2str(time), $CRLF;