(require 'scpaste)
(autoload 'scpaste "scpaste" "Paste the current buffer." t nil)
(global-set-key [(control shift p)] 'scpaste)