my ($res, $txt, $err) = $ct->exec("$lspvob"); #### my $fh = new FileHandle("printf \'$txt\' |") or die; #### print $txt; # prints the text as expected. while (<$fh>){ # prints only part of the text. print $_; }
## my $fh = new FileHandle("printf \'$txt\' |") or die; ##
## print $txt; # prints the text as expected. while (<$fh>){ # prints only part of the text. print $_; }