So let's say that I have the ability to bit-bang four I/O lines that are connected to a JTAG (IEEE 1149.1) chain. I did a CPAN search but came up short. Is there really no Perl-based solution for this? If not, does anyone have any recommendations for other available packages that can bit-bang a JTAG device?