(defun perl-dbg (name)
  "Insert a debugging print statement"
  (insert "use Data::Dumper qw( Dumper );\nwarn Dumper [ ]\n")
  (search-backward "[ ")