(add-hook 'find-file-hooks 'auto-insert)
(setq auto-insert-alist
	 '((("\\.java" . "Java program")
	   nil
	   "public class " (file-name-sans-extension (file-name-nondirectory buffer-file-name)) "
{
	public static void main(String args[])
	{
	}
}
")
	   (("\\.sh" . "Shell script")
	    nil
	    "#!/bin/bash\n\n"
	    )
	   (("\\.pl" . "Perl script")
	    nil
	    "#!/usr/bin/perl -w\n\nuse strict;\nuse English '-nomatchvars';\n"
	    )

	   ))