if (not defined $x) {
  print "\$x is undef\n";
}