open file/buffer and insert date into it

[Kenneth E. Fisler]

While we're talking about inserting a date, I would like to open a file
(actually a buffer) and insert some text and today's date into it, something
like:

(defun datefile (dfname)
  "Open file with date in it two times."
  (interactive
   (prgn
    (find-file dfname)
; buffer should have text in it something like:
; "Today is " (format-time-string "%Y-%m-%d" nil)
)))

Can this be done?  How?


tia,
kf