my $foo = $bar || die "Bela Lugosi is dead: $!";
my $FOO = $BAR or die "I'm dead, I'm dead, I'm dead";