#!/usr/bin/env gosh
(use rfc.ftp)
(define *username* "xxx")
(define *ftp-server* "ftp.xxx.xxx")
(define *client-path* "/xxx/xxx/xxx/xxx.txt")
(define *server-path* "/xxx/xxx/xxx.txt")
(define (main args)
(print "input password:")
(print
(ftp-put
(ftp-login *ftp-server* :passive #t :username *username* :password (read)) *client-path* *server-path*))
0)