#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
stderr = $stderr
exit = $exit";