$ cat exit.pl
#!/usr/bin/perl
print "Exiting with $ARGV[0]\n";
warn "Sending to STDERR\n";
exit $ARGV[0];

$ cat test.pl
#!/usr/bin/perl
my $output = qx! /home/www/modperl/exit.pl 42 2>&1 !;  # capture STDOUT + STDERR with 2>&1
my $exit_code = $? >> 8;
print "Content-Type: text/html\n\nExit: $exit_code ($?)\n$output\n";

# OUTPUT -> Exit: 42 (10752) Sending to STDERR Exiting with 42