# perl's print doesn't add in the \n for you
print "$datehradr:$datemmadjr...\n"