>perl -e "$result = undef; $result or die 'I am dead down here.';"
I am dead down here. at -e line 1.