Quick note on style: the quotes in my ($res, $txt, $err) = $ct->exec("$lspvob"); aren't necessary. This is Perl, not a shell script.

Makeshifts last the longest.