my $pid = open(my $fh, '-|', $cmd);
my $scalar = '';
1 while sysread($fh, $scalar, BLK_SIZE, length($scalar));
waitpid($pid, 0);
return $scalar;