You need to use the exit() function. Example:

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

H:\>echo %ERRORLEVEL%
0

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

H:\>echo %ERRORLEVEL%
1

H:\>
[download]

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com