Select Code to Download

system(...)
    and die "Failed!";

sub _system {
    my $prog = shift;
...
    elsif (my $s = $rv & 127) { die("$prog died from signal $s\n"); }
    elsif (my $e = $rv >> 8)  { die("$prog exited with code $e\n"); }
}