# Currently, I do this on occasion:
do $file;
die $@ if $@;

# This seems like a better and shorter choice:
do $file;
die if $@;