Excellent answer. Just to be complete, this is the short version:

system("/my/shell/prog") && die "System failed: $!"
[download]