Select Code to Download

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

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