#!/usr/bin/expect

spawn gpg-card

expect "gpg/card>"
send -- "writecert PIV.9D < encr.crt\r"
expect "gpg/card>"
send -- "quit\r"

expect eof