#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";