my $result = 'hello';
$result or die "I'm dead";

$result = undef; 
$result or die "I'm dead down here.";

--output:--
I'm dead down here. at line 5.