if (my $exitstatus=($?>> 8 ) == 0){
   # All is well
}else{
   die "ERROR: Returned $exitstatus from shell";
}