my $child_code = system( "other_program" );

##</code><code>##

my $result_text = qx( other_program );
my $child_code = $?;