eval 'exec ${PWPROD}/${ARCH}/perl/bin/perl -w -S $0 ${1+"$@"}'
if 0;

use strict;

my $pid = fork;
if ($pid == 0) {
	# child
	print "in child process \n";
	exit 1;
} elsif ( $pid > 0 ) {
	# parent
	print "in parent \n";

} else {
	# fork error

	print "fork command failed with code $pid \n";
	exit 1;
}


##</code><code>##

in parent
in child process

##</code><code>##

fork command failed with code -1214
in child process