H:\>perl -e "exit(1) unless @ARGV" argument

H:\>echo %ERRORLEVEL%
0

H:\>perl -e "exit(1) unless @ARGV"

H:\>echo %ERRORLEVEL%
1

H:\>