$ perl -le '
    BEGIN { my $x = 1; }
    print defined $x
          ? "defined"
          : "undefined";'
undefined