package require ftp

set handle [::ftp::Open "ftp.website.com" "username" "password"]
  
if {$handle != -1} {
    ::ftp::Put $handle $local_filename $remote_filename
    ::ftp::Close $handle
}

自明代码，不解释。超级简单吧？十行代码解决战斗。