eval { $foo = `some_bad_command` or die "blam" };
warn $@ if $@;