Help for this page
print "XDB19\n"; exit( 3 );
open( LOG, "perl ex.pl|" ); # open the program while ( <LOG> ) { print "$_"; } # print output from prog ... # and conquer print "***$errcode***\n"; #print it ( stands out doesnt it )