my $stderr;
my $stdout = do {
    open(local *STDERR, ">", \$stderr)
      or die "Could not capture STDERR: $!";

    qx(psexec \\\\server netstat -n);
};

print "psexec stdout: $stdout\n";
print "-" x 60, "\n";
print "psexec stderr: $stderr\n";