sshpass supply password in commandline

sshpass.sh

#!/usr/bin/expect -f
# http://stackoverflow.com/questions/28051969/tcl-expect-equivalent-of-bash-or-how-to-pass-arguments-to-spawned-process-in
# usage:
# sshpass.sh userpwd ssh [email protected] 'nohup sleep 30 </dev/null >/dev/null 2>&1 &'
# sshpass.sh userpwd scp svn-auth-file.bak [email protected]:/home/user/svn-auth-file.bak

set PWD [lindex $argv 0]
set ARGS [lrange $argv 1 end]
spawn {*}$ARGS
expect "*password:*"
send "$PWD\r"
expect eof