perl -e '$foo = undef; eval { $bar = $foo; }; die "Error: $@" if $@;'