$ perl -le '`bad_command`;print $?;`echo`;print $?'
-1
0