@rem test.bat
@exit 1

##</code><code>##

#!perl
print "The result is: ", system('test.bat'), "\n";