Tye was very helpful in helping me find out how to do it. I now have actual code to get the error code ( tested, and working ) .. I first created a script that would exit out with an error. THis was simple.

print "XDB19\n";
exit( 3 );
[download]

Now I needed a program to call this one, and get it's output and error code.

open( LOG, "perl ex.pl|" );        # open the program
while ( <LOG> ) { print "$_"; }    # print output from prog
close( LOG );                      # wont work without close

$errcode = ( $? / 256 );           # there is a number stored
                                   # in the $? variable, and
                                   # it happens to be the exit 
                                   # code * 256 ...so divide, 
                                   # and conquer

print "***$errcode***\n";          #print it ( stands out doesnt it )
[download]

Well, thats it. I cant vote yet Tye, but you should be voted up for your reply. It led me to this code. I hope this helps.

- Have fun, XDB19