my $c=4;
if (my $c and !defined $c) {
  print "in\n";
}