tell application "Finder"
	set the CBD to (the clipboard as string)
end tell

set curlCMD to ¬
	"curl --stderr /dev/null \"http://pastie.caboo.se/pastes/create\" -s -L -w \"{url_effective}\" -H \"Expect:\" -F \"paste[parser]=ruby\" -F \"paste[restricted]=0\" -F \"paste[authorization]=burger\" -F \"paste[body]=" & CBD & "\" -F \"key=\" -F \"x=27\" -F \"y=27\""

-- build the command
set shellCMD to curlCMD

-- run the script and get the result
do shell script shellCMD
set pastieURL to the result

return pastieURL