A piped open will do what you want,

my $result;
{
    local $/;
    open my $exe, '-|', $cmdstring or die $!;
    $result = <$exe>;
    close $exe or die $!;
}
[download]

Update:

Just to give an example of Open3:

use IPC::Open3;
use strict;
use warnings;

my $pid = open3(\*WRITER, \*READER, \*ERROR, "netstat");
while (my $line = <READER>) {
    print $line;
}
waitpid($pid, 0);
[download]

Original

If you are running your program thru a shell that supports pipe (like win32, unix etc.), there is almost no extra coding on your side:

use strict;
use warnings;

while (<>) {
    print "[", $_, "]\n";#in your case, you would save this to an arra
+y, or if you want scalar reset local $/
}
[download]

For example, if you are running win32, you can do something like this:

dir|perl -w foo.pl
[download]

If you really mean STDOUT, not a mixture of STDOUT and STDERR, then take a look at IPC::Open3.

my $command = "$FindBin::Bin\\lib\\lmutil lmstat -c $VALOR_LICENSE_FIL
+E";

my $result = qx/$command/;   # qx / /

# or

my $result = `$command`;     # backquote ` `
[download]