Emacs - insert the date with Perl

call_perl.el

;; Use some Perl to insert the date.
(defun myday ()
  "print the date"
  (interactive)
  (call-process "perl" nil t nil "-e" "

     # perl code here
     my @Monat = qw(Januar Februar Maerz April Mai Juni Juli August
	            September Oktober November Dezember);
     my @Tag = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag
	          Samstag);

     my (undef, undef, undef, $mday, $mon, $year, $wday, $yday) = localtime;
     $year += 1900;
     $yday += 1;

     print qq/$Tag[$wday], den $mday $Monat[$mon] $year (yday $yday)\n/;

  "
))
;; C-c m calls myday
(global-set-key (kbd "C-c m") 'myday)