#! /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;