my $result;
while (select my $rd = $rin, undef, undef, 60) {
    my $bytes = sysread *CMD, substr($result, -1), 4096;
    last if 1 > $bytes;
}

...

print "I am finished with my task.  My results are: \n";
print $result."\n";