guile-ssh-tunnel-example

make-tunnel.scm

#!/usr/bin/guile \
-e main
!#

(use-modules (ssh session)
             (ssh auth)
             (ssh key)
             (ssh tunnel))

(define (main args)
  (let ((s (make-session #:user          "alice"
                         #:host          "localhost"
                         #:port          22
                         #:log-verbosity 'nolog))
        (k (private-key-from-file "/home/alice/.ssh/id_rsa")))
    (connect! s)
    (userauth-public-key! s k)
    (let ((t (make-tunnel s
                          #:local-port  8080
                          #:remote-host "www.example.org"
                          #:remote-port 80)))
      (start-forward t))))

Although the port forwarding functionality is still under development (see the branch wip-port-forwarding -- https://github.com/artyom-poptsov/guile-ssh/tree/wip-port-forwarding), it is already possible to do something like this.