That code is nonsense. It's a perl script that messes around with cowsay and does not make a single tpm command.