#updateQuotes.pl
use strict;
use warnings;
use Capture::Tiny qw(capture);

print "Content-type: text/html\n\n";
my $cmd = `C:\\batchfiles\\getUpdates.bat`;

my ($stdout, $stderr, $exit) = capture {
  system( $cmd );
};


print "stdout = $stdout<br> stderr = $stderr <br> exit = $exit";

##</code><code>##

Error from open(IO::Handle=GLOB(0x1501b30), <&STDIN): Bad file descriptor at C:/Strawberry/perl/vendor/lib/Capture/Tiny.pm line 107. Capture::Tiny::_open(IO::Handle=GLOB(0x1501b30), "<&STDIN") called at C:/Strawberry/perl/vendor/lib/Capture/Tiny.pm line 184 Capture::Tiny::_copy_std() called at C:/Strawberry/perl/vendor/lib/Capture/Tiny.pm line 357 Capture::Tiny::_capture_tee(1, 1, 0, 0, CODE(0x1cb9c8)) called at C:\inetpub\wwwroot\mywebsite\admin\updateQuotes.pl line 11