REBOL [
    Title: "Upload a File"
    File:  %ftpup.r
    Date:  26-May-1999
    Purpose: {Upload a binary file to an FTP server.}
    Category: [ftp net 1] 
]

write/binary ftp://ftp.site.com/file read/binary %file