use strict;
use warnings;
my $batchfile = qq|batchfile.bat|;

my $status = ( system("batchfile.bat") == 0 ) ? 0 : 1;

print "$batchfile status = $status\n";