system( 'perl -e"exit( 123 )"' )  and print $? >> 8;
123

## or 

system( $command ) == 0 or die 'Failed with: ', $? >> 8;