my $output = `test.bat`;

##</code><code>##

my $output = qx( test.bat );

##</code><code>##

use Capture::Tiny qw( capture );

my ($stdout, $stderr, @result) = capture
{
    system 'test.bat';
};