open my $pgm, '-|', convert => (
-compress => 'none',
'+distort' => SRT => '0,0 1,.56 0',
open my $pgm, '-|', convert => (
-compress => 'none',
'+distort' => SRT => '0,0 1,.56 0',
while (<$pgm>) {
print $ch[ $_ * @ch >> 8 ] for /\d+/g;
print ' ', shift @info if @info;
while (<$pgm>) {
print $ch[ $_ * @ch >> 8 ] for /\d+/g;
print ' ', shift @info if @info;