(let ( (class_name (nth 4 command-line-args)) )
    (message (concat "Buffer: " (buffer-file-name)))
    (beginning-of-buffer)
    (replace-string class_name (concat class_name "Test"))
    (save-buffer)
    (message (concat "Class name: " class_name))
    (message (concat "Changed class name: " class_name " to "
		      (concat class_name "Test")))
)