#! /usr/bin/perl -w
# retcode.pl
# Sets the errorlevel passed as first argument
use strict;

my $retcode = $ARGV[0] || 0;
print "Return code = $retcode\n";
exit $retcode;

##</code><code>##

@echo off
rem A Command file that uses conditional processing.

echo Executing First Script
retcode.pl 0

if errorlevel 1 goto end_label

echo Executing Second Script
retcode.pl 0

:end_label
echo Done!