(defun perl-insert-data-dumper ()
  (interactive)
  (insert "require Data::Dumper; print STDERR \"Line \" . __LINE__ . \", File: \" . __FILE__ . \"\\n\" . Data::Dumper->new([],[])->Indent(1)->Useqq(1)->Dump; # XXX\n")
  (forward-char -40)
  )
(define-key global-map [C-f12] 'perl-insert-data-dumper)